home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1989-07-15 | 91.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| gt2
| Kopftext: '(setq purify-flag nil)
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 28 73 65 74 71 20 70 75 | 72 69 66 79 2d 66 6c 61 |(setq pu|rify-fla|
|00000010| 67 20 6e 69 6c 29 0a 0a | 28 64 65 66 75 6e 20 6f |g nil)..|(defun o|
|00000020| 6e 65 2d 77 69 6e 64 6f | 77 2d 70 20 28 26 6f 70 |ne-windo|w-p (&op|
|00000030| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 20 28 62 79 |tional a|rg) (by|
|00000040| 74 65 2d 63 6f 64 65 20 | 22 c1 20 c2 c1 20 08 85 |te-code |". .. ..|
|00000050| 0a 00 c0 5c 22 3d 87 22 | 20 5b 61 72 67 20 73 65 |...\"=."| [arg se|
|00000060| 6c 65 63 74 65 64 2d 77 | 69 6e 64 6f 77 20 6e 65 |lected-w|indow ne|
|00000070| 78 74 2d 77 69 6e 64 6f | 77 5d 20 36 29 29 0a 0a |xt-windo|w] 6))..|
|00000080| 28 64 65 66 75 6e 20 72 | 65 61 64 2d 71 75 6f 74 |(defun r|ead-quot|
|00000090| 65 64 2d 63 68 61 72 20 | 28 26 6f 70 74 69 6f 6e |ed-char |(&option|
|000000a0| 61 6c 20 70 72 6f 6d 70 | 74 29 20 20 28 62 79 74 |al promp|t) (byt|
|000000b0| 65 2d 63 6f 64 65 20 22 | ca ca c5 1a 19 18 08 cb |e-code "|........|
|000000c0| 57 85 75 00 cc 08 21 c5 | 1c 1b 0e 06 85 1c 00 cd |W.u...!.|........|
|000000d0| ce 0e 06 5c 22 88 72 89 | 12 88 0b 85 29 00 c5 89 |...\".r.|....)...|
|000000e0| 16 07 2a 88 0a 3f 86 71 | 00 cf 0a 58 85 39 00 0a |..*..?.q|...X.9..|
|000000f0| d0 58 83 5d 00 d1 09 d2 | 5c 22 0a cf 5a 5c 5c 11 |.X.]....|\"..Z\\.|
|00000100| 08 54 89 10 88 0e 06 85 | 5a 00 cd d3 d4 0e 06 0a |.T......|Z.......|
|00000110| 23 89 16 06 21 82 71 00 | 08 ca 56 83 6c 00 0a 16 |#...!.q.|..V.l...|
|00000120| 08 d5 89 10 82 71 00 0a | 11 d5 89 10 88 82 06 00 |.....q..|........|
|00000130| 88 d6 d7 09 5c 22 2b 87 | 22 20 5b 63 6f 75 6e 74 |....\"+.|" [count|
|00000140| 20 63 6f 64 65 20 63 68 | 61 72 20 69 6e 68 69 62 | code ch|ar inhib|
|00000150| 69 74 2d 71 75 69 74 20 | 68 65 6c 70 2d 66 6f 72 |it-quit |help-for|
|00000160| 6d 20 6e 69 6c 20 70 72 | 6f 6d 70 74 20 71 75 69 |m nil pr|ompt qui|
|00000170| 74 2d 66 6c 61 67 20 75 | 6e 72 65 61 64 2d 63 6f |t-flag u|nread-co|
|00000180| 6d 6d 61 6e 64 2d 63 68 | 61 72 20 74 20 30 20 33 |mmand-ch|ar t 0 3|
|00000190| 20 7a 65 72 6f 70 20 6d | 65 73 73 61 67 65 20 22 | zerop m|essage "|
|000001a0| 25 73 2d 22 20 34 38 20 | 35 35 20 2a 20 38 20 66 |%s-" 48 |55 * 8 f|
|000001b0| 6f 72 6d 61 74 20 22 25 | 73 20 25 63 22 20 32 35 |ormat "%|s %c" 25|
|000001c0| 39 20 6c 6f 67 61 6e 64 | 20 32 35 35 5d 20 39 29 |9 logand| 255] 9)|
|000001d0| 29 0a 0a 28 64 65 66 75 | 6e 20 65 72 72 6f 72 20 |)..(defu|n error |
|000001e0| 28 26 72 65 73 74 20 61 | 72 67 73 29 20 20 28 62 |(&rest a|rgs) (b|
|000001f0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 85 10 00 c2 c3 |yte-code| "......|
|00000200| c4 c5 09 5c 22 43 5c 22 | 88 82 00 00 87 22 20 5b |...\"C\"|....." [|
|00000210| 74 20 61 72 67 73 20 73 | 69 67 6e 61 6c 20 65 72 |t args s|ignal er|
|00000220| 72 6f 72 20 61 70 70 6c | 79 20 66 6f 72 6d 61 74 |ror appl|y format|
|00000230| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 75 6e |] 6))..(|defun un|
|00000240| 64 65 66 69 6e 65 64 20 | 6e 69 6c 20 28 69 6e 74 |defined |nil (int|
|00000250| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00000260| 63 6f 64 65 20 22 c0 88 | c1 20 87 22 20 5b 6e 69 |code "..|. ." [ni|
|00000270| 6c 20 64 69 6e 67 5d 20 | 32 29 29 0a 0a 28 70 75 |l ding] |2))..(pu|
|00000280| 74 20 28 71 75 6f 74 65 | 20 75 6e 64 65 66 69 6e |t (quote| undefin|
|00000290| 65 64 29 20 28 71 75 6f | 74 65 20 73 75 70 70 72 |ed) (quo|te suppr|
|000002a0| 65 73 73 2d 6b 65 79 6d | 61 70 29 20 74 29 0a 0a |ess-keym|ap) t)..|
|000002b0| 28 64 65 66 75 6e 20 73 | 75 70 70 72 65 73 73 2d |(defun s|uppress-|
|000002c0| 6b 65 79 6d 61 70 20 28 | 6d 61 70 20 26 6f 70 74 |keymap (|map &opt|
|000002d0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 20 28 62 79 74 |ional ar|g) (byt|
|000002e0| 65 2d 63 6f 64 65 20 22 | c4 18 08 c5 57 85 15 00 |e-code "|....W...|
|000002f0| 09 08 c6 49 88 08 54 89 | 10 88 82 02 00 29 88 0a |...I..T.|.....)..|
|00000300| 86 3a 00 c7 1b 09 c8 c9 | 49 88 ca 89 13 88 0b cb |.:......|I.......|
|00000310| 58 85 39 00 09 0b cc 49 | 88 0b 54 89 13 88 82 26 |X.9....I|..T....&|
|00000320| 00 29 87 22 20 5b 69 20 | 6d 61 70 20 61 72 67 20 |.)." [i |map arg |
|00000330| 6c 6f 6f 70 20 33 32 20 | 31 32 37 20 75 6e 64 65 |loop 32 |127 unde|
|00000340| 66 69 6e 65 64 20 6e 69 | 6c 20 34 35 20 6e 65 67 |fined ni|l 45 neg|
|00000350| 61 74 69 76 65 2d 61 72 | 67 75 6d 65 6e 74 20 34 |ative-ar|gument 4|
|00000360| 38 20 35 37 20 64 69 67 | 69 74 2d 61 72 67 75 6d |8 57 dig|it-argum|
|00000370| 65 6e 74 5d 20 34 29 29 | 0a 0a 28 64 65 66 75 6e |ent] 4))|..(defun|
|00000380| 20 73 75 62 73 74 69 74 | 75 74 65 2d 6b 65 79 2d | substit|ute-key-|
|00000390| 64 65 66 69 6e 69 74 69 | 6f 6e 20 28 6f 6c 64 64 |definiti|on (oldd|
|000003a0| 65 66 20 6e 65 77 64 65 | 66 20 6b 65 79 6d 61 70 |ef newde|f keymap|
|000003b0| 29 20 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c5 |) (byte|-code ".|
|000003c0| 08 21 83 2a 00 08 47 c6 | 1a 19 0a 09 57 85 26 00 |.!.*..G.|....W.&.|
|000003d0| 08 0a 48 0b 3d 85 1d 00 | 08 0a 0c 49 88 0a 54 89 |..H.=...|...I..T.|
|000003e0| 12 88 82 0b 00 2a 82 46 | 00 08 85 46 00 c7 c8 08 |.....*.F|...F....|
|000003f0| 21 21 0b 3d 85 3d 00 c9 | 08 40 0c 5c 22 88 08 41 |!!.=.=..|.@.\"..A|
|00000400| 89 10 88 82 2a 00 87 22 | 20 5b 6b 65 79 6d 61 70 |....*.."| [keymap|
|00000410| 20 6c 65 6e 20 69 20 6f | 6c 64 64 65 66 20 6e 65 | len i o|lddef ne|
|00000420| 77 64 65 66 20 61 72 72 | 61 79 70 20 30 20 63 64 |wdef arr|ayp 0 cd|
|00000430| 72 2d 73 61 66 65 20 63 | 61 72 2d 73 61 66 65 20 |r-safe c|ar-safe |
|00000440| 73 65 74 63 64 72 5d 20 | 37 29 29 0a 0a 28 66 73 |setcdr] |7))..(fs|
|00000450| 65 74 20 28 71 75 6f 74 | 65 20 69 67 6e 6f 72 65 |et (quot|e ignore|
|00000460| 29 20 28 71 75 6f 74 65 | 20 28 6c 61 6d 62 64 61 |) (quote| (lambda|
|00000470| 20 28 26 72 65 73 74 20 | 69 67 6e 6f 72 65 29 20 | (&rest |ignore) |
|00000480| 6e 69 6c 29 29 29 0a 0a | 28 66 73 65 74 20 28 71 |nil)))..|(fset (q|
|00000490| 75 6f 74 65 20 6d 61 6b | 65 2d 73 79 6e 74 61 78 |uote mak|e-syntax|
|000004a0| 2d 74 61 62 6c 65 29 20 | 28 71 75 6f 74 65 20 63 |-table) |(quote c|
|000004b0| 6f 70 79 2d 73 79 6e 74 | 61 78 2d 74 61 62 6c 65 |opy-synt|ax-table|
|000004c0| 29 29 0a 0a 28 66 73 65 | 74 20 28 71 75 6f 74 65 |))..(fse|t (quote|
|000004d0| 20 64 6f 74 29 20 28 71 | 75 6f 74 65 20 70 6f 69 | dot) (q|uote poi|
|000004e0| 6e 74 29 29 0a 0a 28 66 | 73 65 74 20 28 71 75 6f |nt))..(f|set (quo|
|000004f0| 74 65 20 64 6f 74 2d 6d | 61 72 6b 65 72 29 20 28 |te dot-m|arker) (|
|00000500| 71 75 6f 74 65 20 70 6f | 69 6e 74 2d 6d 61 72 6b |quote po|int-mark|
|00000510| 65 72 29 29 0a 0a 28 66 | 73 65 74 20 28 71 75 6f |er))..(f|set (quo|
|00000520| 74 65 20 64 6f 74 2d 6d | 69 6e 29 20 28 71 75 6f |te dot-m|in) (quo|
|00000530| 74 65 20 70 6f 69 6e 74 | 2d 6d 69 6e 29 29 0a 0a |te point|-min))..|
|00000540| 28 66 73 65 74 20 28 71 | 75 6f 74 65 20 64 6f 74 |(fset (q|uote dot|
|00000550| 2d 6d 61 78 29 20 28 71 | 75 6f 74 65 20 70 6f 69 |-max) (q|uote poi|
|00000560| 6e 74 2d 6d 61 78 29 29 | 0a 0a 28 66 73 65 74 20 |nt-max))|..(fset |
|00000570| 28 71 75 6f 74 65 20 77 | 69 6e 64 6f 77 2d 64 6f |(quote w|indow-do|
|00000580| 74 29 20 28 71 75 6f 74 | 65 20 77 69 6e 64 6f 77 |t) (quot|e window|
|00000590| 2d 70 6f 69 6e 74 29 29 | 0a 0a 28 66 73 65 74 20 |-point))|..(fset |
|000005a0| 28 71 75 6f 74 65 20 73 | 65 74 2d 77 69 6e 64 6f |(quote s|et-windo|
|000005b0| 77 2d 64 6f 74 29 20 28 | 71 75 6f 74 65 20 73 65 |w-dot) (|quote se|
|000005c0| 74 2d 77 69 6e 64 6f 77 | 2d 70 6f 69 6e 74 29 29 |t-window|-point))|
|000005d0| 0a 0a 28 66 73 65 74 20 | 28 71 75 6f 74 65 20 72 |..(fset |(quote r|
|000005e0| 65 61 64 2d 69 6e 70 75 | 74 29 20 28 71 75 6f 74 |ead-inpu|t) (quot|
|000005f0| 65 20 72 65 61 64 2d 73 | 74 72 69 6e 67 29 29 0a |e read-s|tring)).|
|00000600| 0a 28 66 73 65 74 20 28 | 71 75 6f 74 65 20 73 65 |.(fset (|quote se|
|00000610| 6e 64 2d 73 74 72 69 6e | 67 29 20 28 71 75 6f 74 |nd-strin|g) (quot|
|00000620| 65 20 70 72 6f 63 65 73 | 73 2d 73 65 6e 64 2d 73 |e proces|s-send-s|
|00000630| 74 72 69 6e 67 29 29 0a | 0a 28 66 73 65 74 20 28 |tring)).|.(fset (|
|00000640| 71 75 6f 74 65 20 73 65 | 6e 64 2d 72 65 67 69 6f |quote se|nd-regio|
|00000650| 6e 29 20 28 71 75 6f 74 | 65 20 70 72 6f 63 65 73 |n) (quot|e proces|
|00000660| 73 2d 73 65 6e 64 2d 72 | 65 67 69 6f 6e 29 29 0a |s-send-r|egion)).|
|00000670| 0a 28 66 73 65 74 20 28 | 71 75 6f 74 65 20 73 68 |.(fset (|quote sh|
|00000680| 6f 77 2d 62 75 66 66 65 | 72 29 20 28 71 75 6f 74 |ow-buffe|r) (quot|
|00000690| 65 20 73 65 74 2d 77 69 | 6e 64 6f 77 2d 62 75 66 |e set-wi|ndow-buf|
|000006a0| 66 65 72 29 29 0a 0a 28 | 66 73 65 74 20 28 71 75 |fer))..(|fset (qu|
|000006b0| 6f 74 65 20 73 74 72 69 | 6e 67 3d 29 20 28 71 75 |ote stri|ng=) (qu|
|000006c0| 6f 74 65 20 73 74 72 69 | 6e 67 2d 65 71 75 61 6c |ote stri|ng-equal|
|000006d0| 29 29 0a 0a 28 66 73 65 | 74 20 28 71 75 6f 74 65 |))..(fse|t (quote|
|000006e0| 20 73 74 72 69 6e 67 3c | 29 20 28 71 75 6f 74 65 | string<|) (quote|
|000006f0| 20 73 74 72 69 6e 67 2d | 6c 65 73 73 70 29 29 0a | string-|lessp)).|
|00000700| 0a 28 66 73 65 74 20 28 | 71 75 6f 74 65 20 6d 6f |.(fset (|quote mo|
|00000710| 64 29 20 28 71 75 6f 74 | 65 20 25 29 29 0a 0a 28 |d) (quot|e %))..(|
|00000720| 66 73 65 74 20 28 71 75 | 6f 74 65 20 6d 6f 76 65 |fset (qu|ote move|
|00000730| 2d 6d 61 72 6b 65 72 29 | 20 28 71 75 6f 74 65 20 |-marker)| (quote |
|00000740| 73 65 74 2d 6d 61 72 6b | 65 72 29 29 0a 0a 28 66 |set-mark|er))..(f|
|00000750| 73 65 74 20 28 71 75 6f | 74 65 20 65 71 6c 29 20 |set (quo|te eql) |
|00000760| 28 71 75 6f 74 65 20 65 | 71 29 29 0a 0a 28 66 73 |(quote e|q))..(fs|
|00000770| 65 74 20 28 71 75 6f 74 | 65 20 6e 6f 74 29 20 28 |et (quot|e not) (|
|00000780| 71 75 6f 74 65 20 6e 75 | 6c 6c 29 29 0a 0a 28 66 |quote nu|ll))..(f|
|00000790| 73 65 74 20 28 71 75 6f | 74 65 20 6e 75 6d 62 65 |set (quo|te numbe|
|000007a0| 72 70 29 20 28 71 75 6f | 74 65 20 69 6e 74 65 67 |rp) (quo|te integ|
|000007b0| 65 72 70 29 29 0a 0a 28 | 66 73 65 74 20 28 71 75 |erp))..(|fset (qu|
|000007c0| 6f 74 65 20 72 70 6c 61 | 63 61 29 20 28 71 75 6f |ote rpla|ca) (quo|
|000007d0| 74 65 20 73 65 74 63 61 | 72 29 29 0a 0a 28 66 73 |te setca|r))..(fs|
|000007e0| 65 74 20 28 71 75 6f 74 | 65 20 72 70 6c 61 63 64 |et (quot|e rplacd|
|000007f0| 29 20 28 71 75 6f 74 65 | 20 73 65 74 63 64 72 29 |) (quote| setcdr)|
|00000800| 29 0a 0a 28 66 73 65 74 | 20 28 71 75 6f 74 65 20 |)..(fset| (quote |
|00000810| 62 65 65 70 29 20 28 71 | 75 6f 74 65 20 64 69 6e |beep) (q|uote din|
|00000820| 67 29 29 0a 0a 28 66 73 | 65 74 20 28 71 75 6f 74 |g))..(fs|et (quot|
|00000830| 65 20 69 6e 64 65 6e 74 | 2d 74 6f 2d 63 6f 6c 75 |e indent|-to-colu|
|00000840| 6d 6e 29 20 28 71 75 6f | 74 65 20 69 6e 64 65 6e |mn) (quo|te inden|
|00000850| 74 2d 74 6f 29 29 0a 0a | 28 66 73 65 74 20 28 71 |t-to))..|(fset (q|
|00000860| 75 6f 74 65 20 62 61 63 | 6b 77 61 72 64 2d 64 65 |uote bac|kward-de|
|00000870| 6c 65 74 65 2d 63 68 61 | 72 29 20 28 71 75 6f 74 |lete-cha|r) (quot|
|00000880| 65 20 64 65 6c 65 74 65 | 2d 62 61 63 6b 77 61 72 |e delete|-backwar|
|00000890| 64 2d 63 68 61 72 29 29 | 0a 0a 28 64 65 66 76 61 |d-char))|..(defva|
|000008a0| 72 20 67 6c 6f 62 61 6c | 2d 6d 61 70 20 6e 69 6c |r global|-map nil|
|000008b0| 20 29 0a 0a 28 64 65 66 | 76 61 72 20 63 74 6c 2d | )..(def|var ctl-|
|000008c0| 78 2d 6d 61 70 20 6e 69 | 6c 20 29 0a 0a 28 64 65 |x-map ni|l )..(de|
|000008d0| 66 76 61 72 20 65 73 63 | 2d 6d 61 70 20 6e 69 6c |fvar esc|-map nil|
|000008e0| 20 29 0a 0a 28 64 65 66 | 76 61 72 20 6d 6f 75 73 | )..(def|var mous|
|000008f0| 65 2d 6d 61 70 20 6e 69 | 6c 20 29 0a 0a 28 64 65 |e-map ni|l )..(de|
|00000900| 66 75 6e 20 72 75 6e 2d | 68 6f 6f 6b 73 20 28 26 |fun run-|hooks (&|
|00000910| 72 65 73 74 20 68 6f 6f | 6b 6c 69 73 74 29 20 20 |rest hoo|klist) |
|00000920| 28 62 79 74 65 2d 63 6f | 64 65 20 22 08 85 37 00 |(byte-co|de "..7.|
|00000930| 08 40 19 c3 09 21 85 2d | 00 09 4a 85 2d 00 09 4a |.@...!.-|..J.-..J|
|00000940| 1a 0a 3c 85 1f 00 0a 40 | c4 3d 3f 83 29 00 c5 c6 |..<....@|.=?.)...|
|00000950| 0a 5c 22 82 2c 00 c6 0a | 21 29 29 88 08 41 89 10 |.\".,...|!))..A..|
|00000960| 88 82 00 00 87 22 20 5b | 68 6f 6f 6b 6c 69 73 74 |....." [|hooklist|
|00000970| 20 73 79 6d 20 76 61 6c | 75 65 20 62 6f 75 6e 64 | sym val|ue bound|
|00000980| 70 20 6c 61 6d 62 64 61 | 20 6d 61 70 63 61 72 20 |p lambda| mapcar |
|00000990| 66 75 6e 63 61 6c 6c 5d | 20 36 29 29 0a 0a 28 64 |funcall]| 6))..(d|
|000009a0| 65 66 75 6e 20 6d 6f 6d | 65 6e 74 61 72 79 2d 73 |efun mom|entary-s|
|000009b0| 74 72 69 6e 67 2d 64 69 | 73 70 6c 61 79 20 28 73 |tring-di|splay (s|
|000009c0| 74 72 69 6e 67 20 70 6f | 73 20 26 6f 70 74 69 6f |tring po|s &optio|
|000009d0| 6e 61 6c 20 65 78 69 74 | 2d 63 68 61 72 20 6d 65 |nal exit|-char me|
|000009e0| 73 73 61 67 65 29 20 20 | 28 62 79 74 65 2d 63 6f |ssage) |(byte-co|
|000009f0| 64 65 20 22 08 86 07 00 | cc 89 10 88 c2 cd 20 0d |de "....|...... .|
|00000a00| c2 1e 06 1c 1b 19 ce 8e | 8a 0e 07 62 88 c2 89 15 |........|...b....|
|00000a10| 88 cf 0e 08 21 88 60 89 | 16 06 29 88 c9 0e 09 86 |....!.`.|..).....|
|00000a20| 2f 00 d0 d1 08 21 5c 22 | 88 72 1e 0a 0e 0a 08 3d |/....!\"|.r.....=|
|00000a30| 86 43 00 0e 0a 89 16 0b | 29 29 2c 87 22 20 5b 65 |.C......|)),." [e|
|00000a40| 78 69 74 2d 63 68 61 72 | 20 62 75 66 66 65 72 2d |xit-char| buffer-|
|00000a50| 72 65 61 64 2d 6f 6e 6c | 79 20 6e 69 6c 20 6d 6f |read-onl|y nil mo|
|00000a60| 64 69 66 69 65 64 20 6e | 61 6d 65 20 62 75 66 66 |dified n|ame buff|
|00000a70| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 69 6e 73 |er-file-|name ins|
|00000a80| 65 72 74 2d 65 6e 64 20 | 70 6f 73 20 73 74 72 69 |ert-end |pos stri|
|00000a90| 6e 67 20 6d 65 73 73 61 | 67 65 20 63 68 61 72 20 |ng messa|ge char |
|00000aa0| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |unread-c|ommand-c|
|00000ab0| 68 61 72 20 33 32 20 62 | 75 66 66 65 72 2d 6d 6f |har 32 b|uffer-mo|
|00000ac0| 64 69 66 69 65 64 2d 70 | 20 28 28 62 79 74 65 2d |dified-p| ((byte-|
|00000ad0| 63 6f 64 65 20 22 08 85 | 0a 00 8a c5 09 08 5c 22 |code "..|......\"|
|00000ae0| 29 88 0b 89 12 88 c6 0c | 21 87 22 20 5b 69 6e 73 |).......|!." [ins|
|00000af0| 65 72 74 2d 65 6e 64 20 | 70 6f 73 20 62 75 66 66 |ert-end |pos buff|
|00000b00| 65 72 2d 66 69 6c 65 2d | 6e 61 6d 65 20 6e 61 6d |er-file-|name nam|
|00000b10| 65 20 6d 6f 64 69 66 69 | 65 64 20 64 65 6c 65 74 |e modifi|ed delet|
|00000b20| 65 2d 72 65 67 69 6f 6e | 20 73 65 74 2d 62 75 66 |e-region| set-buf|
|00000b30| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 5d 20 |fer-modi|fied-p] |
|00000b40| 33 29 29 20 69 6e 73 65 | 72 74 2d 62 65 66 6f 72 |3)) inse|rt-befor|
|00000b50| 65 2d 6d 61 72 6b 65 72 | 73 20 22 54 79 70 65 20 |e-marker|s "Type |
|00000b60| 25 73 20 74 6f 20 63 6f | 6e 74 69 6e 75 65 20 65 |%s to co|ntinue e|
|00000b70| 64 69 74 69 6e 67 2e 22 | 20 73 69 6e 67 6c 65 2d |diting."| single-|
|00000b80| 6b 65 79 2d 64 65 73 63 | 72 69 70 74 69 6f 6e 5d |key-desc|ription]|
|00000b90| 20 36 29 29 0a 0a 28 73 | 65 74 71 20 64 65 62 75 | 6))..(s|etq debu|
|00000ba0| 67 67 65 72 20 28 71 75 | 6f 74 65 20 64 65 62 75 |gger (qu|ote debu|
|00000bb0| 67 29 29 0a 0a 28 64 65 | 66 63 6f 6e 73 74 20 6d |g))..(de|fconst m|
|00000bc0| 6f 64 65 2d 6c 69 6e 65 | 2d 62 75 66 66 65 72 2d |ode-line|-buffer-|
|00000bd0| 69 64 65 6e 74 69 66 69 | 63 61 74 69 6f 6e 20 28 |identifi|cation (|
|00000be0| 70 75 72 65 63 6f 70 79 | 20 28 71 75 6f 74 65 20 |purecopy| (quote |
|00000bf0| 28 22 45 6d 61 63 73 3a | 20 25 31 37 62 22 29 29 |("Emacs:| %17b"))|
|00000c00| 29 20 29 0a 0a 28 6d 61 | 6b 65 2d 76 61 72 69 61 |) )..(ma|ke-varia|
|00000c10| 62 6c 65 2d 62 75 66 66 | 65 72 2d 6c 6f 63 61 6c |ble-buff|er-local|
|00000c20| 20 28 71 75 6f 74 65 20 | 6d 6f 64 65 2d 6c 69 6e | (quote |mode-lin|
|00000c30| 65 2d 62 75 66 66 65 72 | 2d 69 64 65 6e 74 69 66 |e-buffer|-identif|
|00000c40| 69 63 61 74 69 6f 6e 29 | 29 0a 0a 28 64 65 66 63 |ication)|)..(defc|
|00000c50| 6f 6e 73 74 20 6d 6f 64 | 65 2d 6c 69 6e 65 2d 70 |onst mod|e-line-p|
|00000c60| 72 6f 63 65 73 73 20 6e | 69 6c 20 29 0a 0a 28 6d |rocess n|il )..(m|
|00000c70| 61 6b 65 2d 76 61 72 69 | 61 62 6c 65 2d 62 75 66 |ake-vari|able-buf|
|00000c80| 66 65 72 2d 6c 6f 63 61 | 6c 20 28 71 75 6f 74 65 |fer-loca|l (quote|
|00000c90| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 70 72 6f 63 65 | mode-li|ne-proce|
|00000ca0| 73 73 29 29 0a 0a 28 64 | 65 66 63 6f 6e 73 74 20 |ss))..(d|efconst |
|00000cb0| 6d 6f 64 65 2d 6c 69 6e | 65 2d 6d 6f 64 69 66 69 |mode-lin|e-modifi|
|00000cc0| 65 64 20 28 70 75 72 65 | 63 6f 70 79 20 28 71 75 |ed (pure|copy (qu|
|00000cd0| 6f 74 65 20 28 22 2d 2d | 25 31 2a 25 31 2a 2d 22 |ote ("--|%1*%1*-"|
|00000ce0| 29 29 29 20 29 0a 0a 28 | 6d 61 6b 65 2d 76 61 72 |))) )..(|make-var|
|00000cf0| 69 61 62 6c 65 2d 62 75 | 66 66 65 72 2d 6c 6f 63 |iable-bu|ffer-loc|
|00000d00| 61 6c 20 28 71 75 6f 74 | 65 20 6d 6f 64 65 2d 6c |al (quot|e mode-l|
|00000d10| 69 6e 65 2d 6d 6f 64 69 | 66 69 65 64 29 29 0a 0a |ine-modi|fied))..|
|00000d20| 28 73 65 74 71 2d 64 65 | 66 61 75 6c 74 20 6d 6f |(setq-de|fault mo|
|00000d30| 64 65 2d 6c 69 6e 65 2d | 66 6f 72 6d 61 74 20 28 |de-line-|format (|
|00000d40| 6c 69 73 74 20 28 70 75 | 72 65 63 6f 70 79 20 22 |list (pu|recopy "|
|00000d50| 22 29 20 28 71 75 6f 74 | 65 20 6d 6f 64 65 2d 6c |") (quot|e mode-l|
|00000d60| 69 6e 65 2d 6d 6f 64 69 | 66 69 65 64 29 20 28 71 |ine-modi|fied) (q|
|00000d70| 75 6f 74 65 20 6d 6f 64 | 65 2d 6c 69 6e 65 2d 62 |uote mod|e-line-b|
|00000d80| 75 66 66 65 72 2d 69 64 | 65 6e 74 69 66 69 63 61 |uffer-id|entifica|
|00000d90| 74 69 6f 6e 29 20 28 70 | 75 72 65 63 6f 70 79 20 |tion) (p|urecopy |
|00000da0| 22 20 20 20 22 29 20 28 | 71 75 6f 74 65 20 67 6c |" ") (|quote gl|
|00000db0| 6f 62 61 6c 2d 6d 6f 64 | 65 2d 73 74 72 69 6e 67 |obal-mod|e-string|
|00000dc0| 29 20 28 70 75 72 65 63 | 6f 70 79 20 22 20 20 20 |) (purec|opy " |
|00000dd0| 25 5b 28 22 29 20 28 71 | 75 6f 74 65 20 6d 6f 64 |%[(") (q|uote mod|
|00000de0| 65 2d 6e 61 6d 65 29 20 | 28 71 75 6f 74 65 20 6d |e-name) |(quote m|
|00000df0| 69 6e 6f 72 2d 6d 6f 64 | 65 2d 61 6c 69 73 74 29 |inor-mod|e-alist)|
|00000e00| 20 22 25 6e 22 20 28 71 | 75 6f 74 65 20 6d 6f 64 | "%n" (q|uote mod|
|00000e10| 65 2d 6c 69 6e 65 2d 70 | 72 6f 63 65 73 73 29 20 |e-line-p|rocess) |
|00000e20| 28 70 75 72 65 63 6f 70 | 79 20 22 29 25 5d 2d 2d |(purecop|y ")%]--|
|00000e30| 2d 2d 22 29 20 28 70 75 | 72 65 63 6f 70 79 20 28 |--") (pu|recopy (|
|00000e40| 71 75 6f 74 65 20 28 2d | 33 20 2e 20 22 25 70 22 |quote (-|3 . "%p"|
|00000e50| 29 29 29 20 28 70 75 72 | 65 63 6f 70 79 20 22 2d |))) (pur|ecopy "-|
|00000e60| 25 2d 22 29 29 29 0a 0a | 28 64 65 66 76 61 72 20 |%-")))..|(defvar |
|00000e70| 6d 69 6e 6f 72 2d 6d 6f | 64 65 2d 61 6c 69 73 74 |minor-mo|de-alist|
|00000e80| 20 6e 69 6c 20 29 0a 0a | 28 73 65 74 71 20 6d 69 | nil )..|(setq mi|
|00000e90| 6e 6f 72 2d 6d 6f 64 65 | 2d 61 6c 69 73 74 20 28 |nor-mode|-alist (|
|00000ea0| 6d 61 70 63 61 72 20 28 | 71 75 6f 74 65 20 70 75 |mapcar (|quote pu|
|00000eb0| 72 65 63 6f 70 79 29 20 | 28 71 75 6f 74 65 20 28 |recopy) |(quote (|
|00000ec0| 28 61 62 62 72 65 76 2d | 6d 6f 64 65 20 22 20 41 |(abbrev-|mode " A|
|00000ed0| 62 62 72 65 76 22 29 20 | 28 6f 76 65 72 77 72 69 |bbrev") |(overwri|
|00000ee0| 74 65 2d 6d 6f 64 65 20 | 22 20 4f 76 77 72 74 22 |te-mode |" Ovwrt"|
|00000ef0| 29 20 28 61 75 74 6f 2d | 66 69 6c 6c 2d 68 6f 6f |) (auto-|fill-hoo|
|00000f00| 6b 20 22 20 46 69 6c 6c | 22 29 20 28 64 65 66 69 |k " Fill|") (defi|
|00000f10| 6e 69 6e 67 2d 6b 62 64 | 2d 6d 61 63 72 6f 20 22 |ning-kbd|-macro "|
|00000f20| 20 44 65 66 22 29 29 29 | 29 29 0a 0a 28 64 65 66 | Def")))|))..(def|
|00000f30| 63 6f 6e 73 74 20 66 75 | 6e 63 74 69 6f 6e 2d 6b |const fu|nction-k|
|00000f40| 65 79 6d 61 70 20 28 6d | 61 6b 65 2d 73 70 61 72 |eymap (m|ake-spar|
|00000f50| 73 65 2d 6b 65 79 6d 61 | 70 29 20 29 0a 0a 28 64 |se-keyma|p) )..(d|
|00000f60| 65 66 63 6f 6e 73 74 20 | 70 61 72 61 67 72 61 70 |efconst |paragrap|
|00000f70| 68 2d 73 74 61 72 74 20 | 22 5e 5b 20 09 0a 0c 5d |h-start |"^[ ...]|
|00000f80| 22 20 29 0a 0a 28 64 65 | 66 63 6f 6e 73 74 20 70 |" )..(de|fconst p|
|00000f90| 61 72 61 67 72 61 70 68 | 2d 73 65 70 61 72 61 74 |aragraph|-separat|
|00000fa0| 65 20 22 5e 5b 20 09 0c | 5d 2a 24 22 20 29 0a 0a |e "^[ ..|]*$" )..|
|00000fb0| 28 64 65 66 63 6f 6e 73 | 74 20 73 65 6e 74 65 6e |(defcons|t senten|
|00000fc0| 63 65 2d 65 6e 64 20 28 | 70 75 72 65 63 6f 70 79 |ce-end (|purecopy|
|00000fd0| 20 22 5b 2e 3f 21 5d 5b | 5d 5c 22 27 29 7d 5d 2a | "[.?!][|]\"')}]*|
|00000fe0| 5c 5c 28 24 5c 5c 7c 09 | 5c 5c 7c 20 20 5c 5c 29 |\\($\\|.|\\| \\)|
|00000ff0| 5b 20 09 0a 5d 2a 22 29 | 20 29 0a 0a 28 64 65 66 |[ ..]*")| )..(def|
|00001000| 63 6f 6e 73 74 20 70 61 | 67 65 2d 64 65 6c 69 6d |const pa|ge-delim|
|00001010| 69 74 65 72 20 22 5e 0c | 22 20 29 0a 0a 28 64 65 |iter "^.|" )..(de|
|00001020| 66 63 6f 6e 73 74 20 63 | 61 73 65 2d 72 65 70 6c |fconst c|ase-repl|
|00001030| 61 63 65 20 74 20 29 0a | 0a 28 64 65 66 76 61 72 |ace t ).|.(defvar|
|00001040| 20 69 6e 64 65 6e 74 2d | 6c 69 6e 65 2d 66 75 6e | indent-|line-fun|
|00001050| 63 74 69 6f 6e 20 28 71 | 75 6f 74 65 20 69 6e 64 |ction (q|uote ind|
|00001060| 65 6e 74 2d 74 6f 2d 6c | 65 66 74 2d 6d 61 72 67 |ent-to-l|eft-marg|
|00001070| 69 6e 29 20 29 0a 0a 28 | 64 65 66 63 6f 6e 73 74 |in) )..(|defconst|
|00001080| 20 6f 6e 6c 79 2d 67 6c | 6f 62 61 6c 2d 61 62 62 | only-gl|obal-abb|
|00001090| 72 65 76 73 20 6e 69 6c | 20 29 0a 0a 28 73 65 74 |revs nil| )..(set|
|000010a0| 71 20 63 6f 6d 70 6c 65 | 74 69 6f 6e 2d 69 67 6e |q comple|tion-ign|
|000010b0| 6f 72 65 64 2d 65 78 74 | 65 6e 73 69 6f 6e 73 20 |ored-ext|ensions |
|000010c0| 28 69 66 20 28 65 71 20 | 73 79 73 74 65 6d 2d 74 |(if (eq |system-t|
|000010d0| 79 70 65 20 28 71 75 6f | 74 65 20 76 61 78 2d 76 |ype (quo|te vax-v|
|000010e0| 6d 73 29 29 20 28 71 75 | 6f 74 65 20 28 22 2e 6f |ms)) (qu|ote (".o|
|000010f0| 62 6a 22 20 22 2e 65 6c | 63 22 20 22 2e 65 78 65 |bj" ".el|c" ".exe|
|00001100| 22 20 22 2e 62 69 6e 22 | 20 22 2e 6c 62 69 6e 22 |" ".bin"| ".lbin"|
|00001110| 20 22 2e 64 76 69 22 20 | 22 2e 74 6f 63 22 20 22 | ".dvi" |".toc" "|
|00001120| 2e 6c 6f 67 22 20 22 2e | 61 75 78 22 20 22 2e 6c |.log" ".|aux" ".l|
|00001130| 6f 66 22 20 22 2e 62 72 | 6e 22 20 22 2e 72 6e 74 |of" ".br|n" ".rnt|
|00001140| 22 20 22 2e 6d 65 6d 22 | 20 22 2e 6c 6e 69 22 20 |" ".mem"| ".lni" |
|00001150| 22 2e 6c 69 73 22 20 22 | 2e 6f 6c 62 22 20 22 2e |".lis" "|.olb" ".|
|00001160| 74 6c 62 22 20 22 2e 6d | 6c 62 22 20 22 2e 68 6c |tlb" ".m|lb" ".hl|
|00001170| 62 22 20 22 2e 67 6c 6f | 22 20 22 2e 69 64 78 22 |b" ".glo|" ".idx"|
|00001180| 20 22 2e 6c 6f 74 22 29 | 29 20 28 71 75 6f 74 65 | ".lot")|) (quote|
|00001190| 20 28 22 2e 6f 22 20 22 | 2e 65 6c 63 22 20 22 7e | (".o" "|.elc" "~|
|000011a0| 22 20 22 2e 62 69 6e 22 | 20 22 2e 6c 62 69 6e 22 |" ".bin"| ".lbin"|
|000011b0| 20 22 2e 66 61 73 6c 22 | 20 22 2e 64 76 69 22 20 | ".fasl"| ".dvi" |
|000011c0| 22 2e 74 6f 63 22 20 22 | 2e 6c 6f 67 22 20 22 2e |".toc" "|.log" ".|
|000011d0| 61 75 78 22 20 22 2e 6c | 6f 66 22 20 22 2e 62 6c |aux" ".l|of" ".bl|
|000011e0| 67 22 20 22 2e 62 62 6c | 22 20 22 2e 67 6c 6f 22 |g" ".bbl|" ".glo"|
|000011f0| 20 22 2e 69 64 78 22 20 | 22 2e 6c 6f 74 22 29 29 | ".idx" |".lot"))|
|00001200| 29 29 0a 0a 28 64 65 66 | 76 61 72 20 63 6f 6d 70 |))..(def|var comp|
|00001210| 69 6c 65 2d 63 6f 6d 6d | 61 6e 64 20 22 6d 61 6b |ile-comm|and "mak|
|00001220| 65 20 2d 6b 22 20 29 0a | 0a 28 64 65 66 76 61 72 |e -k" ).|.(defvar|
|00001230| 20 64 69 72 65 64 2d 6c | 69 73 74 69 6e 67 2d 73 | dired-l|isting-s|
|00001240| 77 69 74 63 68 65 73 20 | 22 2d 61 6c 22 20 29 0a |witches |"-al" ).|
|00001250| 0a 28 64 65 66 63 6f 6e | 73 74 20 6c 70 72 2d 73 |.(defcon|st lpr-s|
|00001260| 77 69 74 63 68 65 73 20 | 6e 69 6c 20 29 0a 0a 28 |witches |nil )..(|
|00001270| 64 65 66 76 61 72 20 74 | 61 67 73 2d 66 69 6c 65 |defvar t|ags-file|
|00001280| 2d 6e 61 6d 65 20 6e 69 | 6c 20 29 0a 0a 28 64 65 |-name ni|l )..(de|
|00001290| 66 63 6f 6e 73 74 20 73 | 68 65 6c 6c 2d 70 72 6f |fconst s|hell-pro|
|000012a0| 6d 70 74 2d 70 61 74 74 | 65 72 6e 20 22 5e 5b 5e |mpt-patt|ern "^[^|
|000012b0| 23 24 25 3e 5d 2a 5b 23 | 24 25 3e 5d 20 2a 22 20 |#$%>]*[#|$%>] *" |
|000012c0| 29 0a 0a 28 64 65 66 63 | 6f 6e 73 74 20 6c 65 64 |)..(defc|onst led|
|000012d0| 69 74 2d 73 61 76 65 2d | 66 69 6c 65 73 20 74 20 |it-save-|files t |
|000012e0| 29 0a 0a 28 64 65 66 63 | 6f 6e 73 74 20 6c 65 64 |)..(defc|onst led|
|000012f0| 69 74 2d 67 6f 2d 74 6f | 2d 6c 69 73 70 2d 73 74 |it-go-to|-lisp-st|
|00001300| 72 69 6e 67 20 22 25 3f | 6c 69 73 70 22 20 29 0a |ring "%?|lisp" ).|
|00001310| 0a 28 64 65 66 63 6f 6e | 73 74 20 6c 65 64 69 74 |.(defcon|st ledit|
|00001320| 2d 67 6f 2d 74 6f 2d 6c | 69 73 7a 74 2d 73 74 72 |-go-to-l|iszt-str|
|00001330| 69 6e 67 20 22 25 3f 6c | 69 73 7a 74 22 20 29 0a |ing "%?l|iszt" ).|
|00001340| 0a 28 64 65 66 63 6f 6e | 73 74 20 64 69 73 70 6c |.(defcon|st displ|
|00001350| 61 79 2d 74 69 6d 65 2d | 64 61 79 2d 61 6e 64 2d |ay-time-|day-and-|
|00001360| 64 61 74 65 20 6e 69 6c | 20 29 0a 0a 28 64 65 66 |date nil| )..(def|
|00001370| 76 61 72 20 61 75 74 6f | 2d 6d 6f 64 65 2d 61 6c |var auto|-mode-al|
|00001380| 69 73 74 20 6e 69 6c 20 | 29 0a 0a 28 73 65 74 71 |ist nil |)..(setq|
|00001390| 20 61 75 74 6f 2d 6d 6f | 64 65 2d 61 6c 69 73 74 | auto-mo|de-alist|
|000013a0| 20 28 6d 61 70 63 61 72 | 20 28 71 75 6f 74 65 20 | (mapcar| (quote |
|000013b0| 70 75 72 65 63 6f 70 79 | 29 20 28 71 75 6f 74 65 |purecopy|) (quote|
|000013c0| 20 28 28 22 5c 5c 2e 74 | 65 78 74 24 22 20 2e 20 | (("\\.t|ext$" . |
|000013d0| 74 65 78 74 2d 6d 6f 64 | 65 29 20 28 22 5c 5c 2e |text-mod|e) ("\\.|
|000013e0| 63 24 22 20 2e 20 63 2d | 6d 6f 64 65 29 20 28 22 |c$" . c-|mode) ("|
|000013f0| 5c 5c 2e 68 24 22 20 2e | 20 63 2d 6d 6f 64 65 29 |\\.h$" .| c-mode)|
|00001400| 20 28 22 5c 5c 2e 74 65 | 78 24 22 20 2e 20 54 65 | ("\\.te|x$" . Te|
|00001410| 58 2d 6d 6f 64 65 29 20 | 28 22 5c 5c 2e 65 6c 24 |X-mode) |("\\.el$|
|00001420| 22 20 2e 20 65 6d 61 63 | 73 2d 6c 69 73 70 2d 6d |" . emac|s-lisp-m|
|00001430| 6f 64 65 29 20 28 22 5c | 5c 2e 73 63 6d 24 22 20 |ode) ("\|\.scm$" |
|00001440| 2e 20 73 63 68 65 6d 65 | 2d 6d 6f 64 65 29 20 28 |. scheme|-mode) (|
|00001450| 22 5c 5c 2e 6c 24 22 20 | 2e 20 6c 69 73 70 2d 6d |"\\.l$" |. lisp-m|
|00001460| 6f 64 65 29 20 28 22 5c | 5c 2e 6c 69 73 70 24 22 |ode) ("\|\.lisp$"|
|00001470| 20 2e 20 6c 69 73 70 2d | 6d 6f 64 65 29 20 28 22 | . lisp-|mode) ("|
|00001480| 5c 5c 2e 66 24 22 20 2e | 20 66 6f 72 74 72 61 6e |\\.f$" .| fortran|
|00001490| 2d 6d 6f 64 65 29 20 28 | 22 5c 5c 2e 6d 73 73 24 |-mode) (|"\\.mss$|
|000014a0| 22 20 2e 20 73 63 72 69 | 62 65 2d 6d 6f 64 65 29 |" . scri|be-mode)|
|000014b0| 20 28 22 5c 5c 2e 70 6c | 24 22 20 2e 20 70 72 6f | ("\\.pl|$" . pro|
|000014c0| 6c 6f 67 2d 6d 6f 64 65 | 29 20 28 22 5c 5c 2e 54 |log-mode|) ("\\.T|
|000014d0| 65 58 24 22 20 2e 20 54 | 65 58 2d 6d 6f 64 65 29 |eX$" . T|eX-mode)|
|000014e0| 20 28 22 5c 5c 2e 73 74 | 79 24 22 20 2e 20 4c 61 | ("\\.st|y$" . La|
|000014f0| 54 65 58 2d 6d 6f 64 65 | 29 20 28 22 5c 5c 2e 62 |TeX-mode|) ("\\.b|
|00001500| 62 6c 24 22 20 2e 20 4c | 61 54 65 58 2d 6d 6f 64 |bl$" . L|aTeX-mod|
|00001510| 65 29 20 28 22 5c 5c 2e | 62 69 62 24 22 20 2e 20 |e) ("\\.|bib$" . |
|00001520| 74 65 78 74 2d 6d 6f 64 | 65 29 20 28 22 5c 5c 2e |text-mod|e) ("\\.|
|00001530| 61 72 74 69 63 6c 65 24 | 22 20 2e 20 74 65 78 74 |article$|" . text|
|00001540| 2d 6d 6f 64 65 29 20 28 | 22 5c 5c 2e 6c 65 74 74 |-mode) (|"\\.lett|
|00001550| 65 72 24 22 20 2e 20 74 | 65 78 74 2d 6d 6f 64 65 |er$" . t|ext-mode|
|00001560| 29 20 28 22 5c 5c 2e 74 | 65 78 69 6e 66 6f 24 22 |) ("\\.t|exinfo$"|
|00001570| 20 2e 20 74 65 78 69 6e | 66 6f 2d 6d 6f 64 65 29 | . texin|fo-mode)|
|00001580| 20 28 22 5c 5c 2e 6c 73 | 70 24 22 20 2e 20 6c 69 | ("\\.ls|p$" . li|
|00001590| 73 70 2d 6d 6f 64 65 29 | 20 28 22 5c 5c 2e 70 72 |sp-mode)| ("\\.pr|
|000015a0| 6f 6c 6f 67 24 22 20 2e | 20 70 72 6f 6c 6f 67 2d |olog$" .| prolog-|
|000015b0| 6d 6f 64 65 29 20 28 22 | 5e 2f 74 6d 70 2f 52 65 |mode) ("|^/tmp/Re|
|000015c0| 22 20 2e 20 74 65 78 74 | 2d 6d 6f 64 65 29 20 28 |" . text|-mode) (|
|000015d0| 22 5e 2f 74 6d 70 2f 66 | 6f 6c 2f 22 20 2e 20 74 |"^/tmp/f|ol/" . t|
|000015e0| 65 78 74 2d 6d 6f 64 65 | 29 20 28 22 2f 4d 65 73 |ext-mode|) ("/Mes|
|000015f0| 73 61 67 65 5b 30 2d 39 | 5d 2a 24 22 20 2e 20 74 |sage[0-9|]*$" . t|
|00001600| 65 78 74 2d 6d 6f 64 65 | 29 20 28 22 5c 5c 2e 79 |ext-mode|) ("\\.y|
|00001610| 24 22 20 2e 20 63 2d 6d | 6f 64 65 29 20 28 22 5c |$" . c-m|ode) ("\|
|00001620| 5c 2e 73 63 6d 2e 5b 30 | 2d 39 5d 2a 24 22 20 2e |\.scm.[0|-9]*$" .|
|00001630| 20 73 63 68 65 6d 65 2d | 6d 6f 64 65 29 20 28 22 | scheme-|mode) ("|
|00001640| 5b 5d 3e 3a 2f 5d 5c 5c | 2e 2e 2a 65 6d 61 63 73 |[]>:/]\\|..*emacs|
|00001650| 22 20 2e 20 65 6d 61 63 | 73 2d 6c 69 73 70 2d 6d |" . emac|s-lisp-m|
|00001660| 6f 64 65 29 20 28 22 5c | 5c 2e 6d 6c 24 22 20 2e |ode) ("\|\.ml$" .|
|00001670| 20 6c 69 73 70 2d 6d 6f | 64 65 29 29 29 29 29 0a | lisp-mo|de))))).|
|00001680| 0a 28 6d 61 6b 65 2d 76 | 61 72 69 61 62 6c 65 2d |.(make-v|ariable-|
|00001690| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 28 71 75 |buffer-l|ocal (qu|
|000016a0| 6f 74 65 20 69 6e 64 65 | 6e 74 2d 74 61 62 73 2d |ote inde|nt-tabs-|
|000016b0| 6d 6f 64 65 29 29 0a 0a | 28 64 65 66 76 61 72 20 |mode))..|(defvar |
|000016c0| 63 74 6c 2d 78 2d 34 2d | 6d 61 70 20 28 6d 61 6b |ctl-x-4-|map (mak|
|000016d0| 65 2d 6b 65 79 6d 61 70 | 29 20 29 0a 0a 0a 28 61 |e-keymap|) )...(a|
|000016e0| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 5c |utoload |(quote \|
|000016f0| 60 29 20 22 62 61 63 6b | 71 75 6f 74 65 22 20 20 |`) "back|quote" |
|00001700| 6e 69 6c 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |nil t)..|(autoloa|
|00001710| 64 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |d (quote| byte-co|
|00001720| 6d 70 69 6c 65 2d 66 69 | 6c 65 29 20 22 62 79 74 |mpile-fi|le) "byt|
|00001730| 65 63 6f 6d 70 22 20 6e | 69 6c 20 20 74 29 0a 0a |ecomp" n|il t)..|
|00001740| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00001750| 20 62 79 74 65 2d 72 65 | 63 6f 6d 70 69 6c 65 2d | byte-re|compile-|
|00001760| 64 69 72 65 63 74 6f 72 | 79 29 20 22 62 79 74 65 |director|y) "byte|
|00001770| 63 6f 6d 70 22 20 6e 69 | 6c 20 20 74 29 0a 0a 28 |comp" ni|l t)..(|
|00001780| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|00001790| 62 61 74 63 68 2d 62 79 | 74 65 2d 63 6f 6d 70 69 |batch-by|te-compi|
|000017a0| 6c 65 29 20 22 62 79 74 | 65 63 6f 6d 70 22 20 6e |le) "byt|ecomp" n|
|000017b0| 69 6c 20 20 6e 69 6c 29 | 0a 0a 28 61 75 74 6f 6c |il nil)|..(autol|
|000017c0| 6f 61 64 20 28 71 75 6f | 74 65 20 63 61 6c 65 6e |oad (quo|te calen|
|000017d0| 64 61 72 29 20 22 63 61 | 6c 22 20 6e 69 6c 20 20 |dar) "ca|l" nil |
|000017e0| 74 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |t)..(aut|oload (q|
|000017f0| 75 6f 74 65 20 6c 69 73 | 74 2d 63 6f 6d 6d 61 6e |uote lis|t-comman|
|00001800| 64 2d 68 69 73 74 6f 72 | 79 29 20 22 63 68 69 73 |d-histor|y) "chis|
|00001810| 74 6f 72 79 22 20 6e 69 | 6c 20 20 74 29 0a 0a 28 |tory" ni|l t)..(|
|00001820| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|00001830| 63 6f 6d 6d 61 6e 64 2d | 68 69 73 74 6f 72 79 2d |command-|history-|
|00001840| 6d 6f 64 65 29 20 22 63 | 68 69 73 74 6f 72 79 22 |mode) "c|history"|
|00001850| 20 6e 69 6c 20 20 74 29 | 0a 0a 28 61 75 74 6f 6c | nil t)|..(autol|
|00001860| 6f 61 64 20 28 71 75 6f | 74 65 20 72 65 70 65 61 |oad (quo|te repea|
|00001870| 74 2d 6d 61 74 63 68 69 | 6e 67 2d 63 6f 6d 70 6c |t-matchi|ng-compl|
|00001880| 65 78 2d 63 6f 6d 6d 61 | 6e 64 29 20 22 63 68 69 |ex-comma|nd) "chi|
|00001890| 73 74 6f 72 79 22 20 6e | 69 6c 20 20 74 29 0a 0a |story" n|il t)..|
|000018a0| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|000018b0| 20 63 6f 6d 6d 6f 6e 2d | 6c 69 73 70 2d 69 6e 64 | common-|lisp-ind|
|000018c0| 65 6e 74 2d 68 6f 6f 6b | 29 20 22 63 6c 2d 69 6e |ent-hook|) "cl-in|
|000018d0| 64 65 6e 74 22 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |dent")..|(autoloa|
|000018e0| 64 20 28 71 75 6f 74 65 | 20 63 6f 6d 70 61 72 65 |d (quote| compare|
|000018f0| 2d 77 69 6e 64 6f 77 73 | 29 20 22 63 6f 6d 70 61 |-windows|) "compa|
|00001900| 72 65 2d 77 22 20 6e 69 | 6c 20 20 74 29 0a 0a 28 |re-w" ni|l t)..(|
|00001910| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 74 6c 2d 78 |define-k|ey ctl-x|
|00001920| 2d 6d 61 70 20 22 60 22 | 20 28 71 75 6f 74 65 20 |-map "`"| (quote |
|00001930| 6e 65 78 74 2d 65 72 72 | 6f 72 29 29 0a 0a 28 64 |next-err|or))..(d|
|00001940| 65 66 69 6e 65 2d 6b 65 | 79 20 65 73 63 2d 6d 61 |efine-ke|y esc-ma|
|00001950| 70 20 22 2f 22 20 28 71 | 75 6f 74 65 20 64 61 62 |p "/" (q|uote dab|
|00001960| 62 72 65 76 2d 65 78 70 | 61 6e 64 29 29 0a 0a 28 |brev-exp|and))..(|
|00001970| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|00001980| 64 61 62 62 72 65 76 2d | 65 78 70 61 6e 64 29 20 |dabbrev-|expand) |
|00001990| 22 64 61 62 62 72 65 76 | 22 20 6e 69 6c 20 20 74 |"dabbrev|" nil t|
|000019a0| 29 0a 0a 28 61 75 74 6f | 6c 6f 61 64 20 28 71 75 |)..(auto|load (qu|
|000019b0| 6f 74 65 20 64 65 62 75 | 67 29 20 22 64 65 62 75 |ote debu|g) "debu|
|000019c0| 67 22 29 0a 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 |g")..(au|toload (|
|000019d0| 71 75 6f 74 65 20 63 61 | 6e 63 65 6c 2d 64 65 62 |quote ca|ncel-deb|
|000019e0| 75 67 2d 6f 6e 2d 65 6e | 74 72 79 29 20 22 64 65 |ug-on-en|try) "de|
|000019f0| 62 75 67 22 20 6e 69 6c | 20 20 74 29 0a 0a 28 61 |bug" nil| t)..(a|
|00001a00| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 64 |utoload |(quote d|
|00001a10| 65 62 75 67 2d 6f 6e 2d | 65 6e 74 72 79 29 20 22 |ebug-on-|entry) "|
|00001a20| 64 65 62 75 67 22 20 6e | 69 6c 20 20 74 29 0a 0a |debug" n|il t)..|
|00001a30| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 63 74 6c 2d |(define-|key ctl-|
|00001a40| 78 2d 6d 61 70 20 22 64 | 22 20 28 71 75 6f 74 65 |x-map "d|" (quote|
|00001a50| 20 64 69 72 65 64 29 29 | 0a 0a 28 61 75 74 6f 6c | dired))|..(autol|
|00001a60| 6f 61 64 20 28 71 75 6f | 74 65 20 64 69 72 65 64 |oad (quo|te dired|
|00001a70| 29 20 22 64 69 72 65 64 | 22 20 6e 69 6c 20 20 74 |) "dired|" nil t|
|00001a80| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |)..(defi|ne-key c|
|00001a90| 74 6c 2d 78 2d 34 2d 6d | 61 70 20 22 64 22 20 28 |tl-x-4-m|ap "d" (|
|00001aa0| 71 75 6f 74 65 20 64 69 | 72 65 64 2d 6f 74 68 65 |quote di|red-othe|
|00001ab0| 72 2d 77 69 6e 64 6f 77 | 29 29 0a 0a 28 61 75 74 |r-window|))..(aut|
|00001ac0| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 64 69 72 |oload (q|uote dir|
|00001ad0| 65 64 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 29 |ed-other|-window)|
|00001ae0| 20 22 64 69 72 65 64 22 | 20 6e 69 6c 20 20 74 29 | "dired"| nil t)|
|00001af0| 0a 0a 28 61 75 74 6f 6c | 6f 61 64 20 28 71 75 6f |..(autol|oad (quo|
|00001b00| 74 65 20 64 69 72 65 64 | 2d 6e 6f 73 65 6c 65 63 |te dired|-noselec|
|00001b10| 74 29 20 22 64 69 72 65 | 64 22 20 29 0a 0a 28 61 |t) "dire|d" )..(a|
|00001b20| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 64 |utoload |(quote d|
|00001b30| 69 73 73 6f 63 69 61 74 | 65 64 2d 70 72 65 73 73 |issociat|ed-press|
|00001b40| 29 20 22 64 69 73 73 6f | 63 69 61 74 65 22 20 6e |) "disso|ciate" n|
|00001b50| 69 6c 20 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |il t)..|(autoloa|
|00001b60| 64 20 28 71 75 6f 74 65 | 20 64 6f 63 74 6f 72 29 |d (quote| doctor)|
|00001b70| 20 22 64 6f 63 74 6f 72 | 22 20 6e 69 6c 20 20 74 | "doctor|" nil t|
|00001b80| 29 0a 0a 28 61 75 74 6f | 6c 6f 61 64 20 28 71 75 |)..(auto|load (qu|
|00001b90| 6f 74 65 20 64 69 73 61 | 73 73 65 6d 62 6c 65 29 |ote disa|ssemble)|
|00001ba0| 20 22 64 69 73 61 73 73 | 22 20 6e 69 6c 20 20 74 | "disass|" nil t|
|00001bb0| 29 0a 0a 28 61 75 74 6f | 6c 6f 61 64 20 28 71 75 |)..(auto|load (qu|
|00001bc0| 6f 74 65 20 65 6c 65 63 | 74 72 69 63 2d 62 75 66 |ote elec|tric-buf|
|00001bd0| 66 65 72 2d 6c 69 73 74 | 29 20 22 65 62 75 66 66 |fer-list|) "ebuff|
|00001be0| 2d 6d 65 6e 75 22 20 6e | 69 6c 20 20 74 29 0a 0a |-menu" n|il t)..|
|00001bf0| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00001c00| 20 65 6c 65 63 74 72 69 | 63 2d 63 6f 6d 6d 61 6e | electri|c-comman|
|00001c10| 64 2d 68 69 73 74 6f 72 | 79 29 20 22 65 63 68 69 |d-histor|y) "echi|
|00001c20| 73 74 6f 72 79 22 20 6e | 69 6c 20 20 74 29 0a 0a |story" n|il t)..|
|00001c30| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00001c40| 20 68 61 6e 6f 69 29 20 | 22 68 61 6e 6f 69 22 20 | hanoi) |"hanoi" |
|00001c50| 6e 69 6c 20 20 74 29 0a | 0a 28 61 75 74 6f 6c 6f |nil t).|.(autolo|
|00001c60| 61 64 20 28 71 75 6f 74 | 65 20 48 65 6c 70 65 72 |ad (quot|e Helper|
|00001c70| 2d 68 65 6c 70 29 20 22 | 68 65 6c 70 65 72 22 20 |-help) "|helper" |
|00001c80| 6e 69 6c 20 20 74 29 0a | 0a 28 61 75 74 6f 6c 6f |nil t).|.(autolo|
|00001c90| 61 64 20 28 71 75 6f 74 | 65 20 48 65 6c 70 65 72 |ad (quot|e Helper|
|00001ca0| 2d 64 65 73 63 72 69 62 | 65 2d 62 69 6e 64 69 6e |-describ|e-bindin|
|00001cb0| 67 73 29 20 22 68 65 6c | 70 65 72 22 20 6e 69 6c |gs) "hel|per" nil|
|00001cc0| 20 20 74 29 0a 0a 28 61 | 75 74 6f 6c 6f 61 64 20 | t)..(a|utoload |
|00001cd0| 28 71 75 6f 74 65 20 69 | 6e 66 6f 29 20 22 69 6e |(quote i|nfo) "in|
|00001ce0| 66 6f 22 20 6e 69 6c 20 | 20 74 29 0a 0a 28 61 75 |fo" nil | t)..(au|
|00001cf0| 74 6f 6c 6f 61 64 20 28 | 71 75 6f 74 65 20 49 6e |toload (|quote In|
|00001d00| 66 6f 2d 74 61 67 69 66 | 79 29 20 22 69 6e 66 6f |fo-tagif|y) "info|
|00001d10| 72 6d 61 74 22 20 6e 69 | 6c 20 20 74 29 0a 0a 28 |rmat" ni|l t)..(|
|00001d20| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|00001d30| 49 6e 66 6f 2d 76 61 6c | 69 64 61 74 65 29 20 22 |Info-val|idate) "|
|00001d40| 69 6e 66 6f 72 6d 61 74 | 22 20 6e 69 6c 20 20 74 |informat|" nil t|
|00001d50| 29 0a 0a 28 61 75 74 6f | 6c 6f 61 64 20 28 71 75 |)..(auto|load (qu|
|00001d60| 6f 74 65 20 49 6e 66 6f | 2d 73 70 6c 69 74 29 20 |ote Info|-split) |
|00001d70| 22 69 6e 66 6f 72 6d 61 | 74 22 20 6e 69 6c 20 20 |"informa|t" nil |
|00001d80| 74 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |t)..(aut|oload (q|
|00001d90| 75 6f 74 65 20 62 61 74 | 63 68 2d 69 6e 66 6f 2d |uote bat|ch-info-|
|00001da0| 76 61 6c 69 64 61 74 65 | 29 20 22 69 6e 66 6f 72 |validate|) "infor|
|00001db0| 6d 61 74 22 20 6e 69 6c | 20 20 6e 69 6c 29 0a 0a |mat" nil| nil)..|
|00001dc0| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00001dd0| 20 6c 65 64 69 74 2d 6d | 6f 64 65 29 20 22 6c 65 | ledit-m|ode) "le|
|00001de0| 64 69 74 22 20 6e 69 6c | 20 20 74 29 0a 0a 28 61 |dit" nil| t)..(a|
|00001df0| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 6c |utoload |(quote l|
|00001e00| 65 64 69 74 2d 66 72 6f | 6d 2d 6c 69 73 70 2d 6d |edit-fro|m-lisp-m|
|00001e10| 6f 64 65 29 20 22 6c 65 | 64 69 74 22 29 0a 0a 28 |ode) "le|dit")..(|
|00001e20| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|00001e30| 69 6e 73 65 72 74 2d 6b | 62 64 2d 6d 61 63 72 6f |insert-k|bd-macro|
|00001e40| 29 20 22 6d 61 63 72 6f | 73 22 20 6e 69 6c 20 20 |) "macro|s" nil |
|00001e50| 74 29 0a 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |t)..(def|ine-key |
|00001e60| 63 74 6c 2d 78 2d 6d 61 | 70 20 22 71 22 20 28 71 |ctl-x-ma|p "q" (q|
|00001e70| 75 6f 74 65 20 6b 62 64 | 2d 6d 61 63 72 6f 2d 71 |uote kbd|-macro-q|
|00001e80| 75 65 72 79 29 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |uery))..|(autoloa|
|00001e90| 64 20 28 71 75 6f 74 65 | 20 6b 62 64 2d 6d 61 63 |d (quote| kbd-mac|
|00001ea0| 72 6f 2d 71 75 65 72 79 | 29 20 22 6d 61 63 72 6f |ro-query|) "macro|
|00001eb0| 73 22 20 6e 69 6c 20 20 | 74 29 0a 0a 28 61 75 74 |s" nil |t)..(aut|
|00001ec0| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 6e 61 6d |oload (q|uote nam|
|00001ed0| 65 2d 6c 61 73 74 2d 6b | 62 64 2d 6d 61 63 72 6f |e-last-k|bd-macro|
|00001ee0| 29 20 22 6d 61 63 72 6f | 73 22 20 6e 69 6c 20 20 |) "macro|s" nil |
|00001ef0| 74 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |t)..(aut|oload (q|
|00001f00| 75 6f 74 65 20 6d 61 6b | 65 2d 63 6f 6d 6d 61 6e |uote mak|e-comman|
|00001f10| 64 2d 73 75 6d 6d 61 72 | 79 29 20 22 6d 61 6b 65 |d-summar|y) "make|
|00001f20| 73 75 6d 22 20 6e 69 6c | 20 20 74 29 0a 0a 28 73 |sum" nil| t)..(s|
|00001f30| 65 74 71 20 64 69 73 61 | 62 6c 65 64 2d 63 6f 6d |etq disa|bled-com|
|00001f40| 6d 61 6e 64 2d 68 6f 6f | 6b 20 28 71 75 6f 74 65 |mand-hoo|k (quote|
|00001f50| 20 64 69 73 61 62 6c 65 | 64 2d 63 6f 6d 6d 61 6e | disable|d-comman|
|00001f60| 64 2d 68 6f 6f 6b 29 29 | 0a 0a 28 61 75 74 6f 6c |d-hook))|..(autol|
|00001f70| 6f 61 64 20 28 71 75 6f | 74 65 20 64 69 73 61 62 |oad (quo|te disab|
|00001f80| 6c 65 64 2d 63 6f 6d 6d | 61 6e 64 2d 68 6f 6f 6b |led-comm|and-hook|
|00001f90| 29 20 22 6e 6f 76 69 63 | 65 22 29 0a 0a 28 61 75 |) "novic|e")..(au|
|00001fa0| 74 6f 6c 6f 61 64 20 28 | 71 75 6f 74 65 20 65 6e |toload (|quote en|
|00001fb0| 61 62 6c 65 2d 63 6f 6d | 6d 61 6e 64 29 20 22 6e |able-com|mand) "n|
|00001fc0| 6f 76 69 63 65 22 20 6e | 69 6c 20 20 74 29 0a 0a |ovice" n|il t)..|
|00001fd0| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00001fe0| 20 64 69 73 61 62 6c 65 | 2d 63 6f 6d 6d 61 6e 64 | disable|-command|
|00001ff0| 29 20 22 6e 6f 76 69 63 | 65 22 20 6e 69 6c 20 20 |) "novic|e" nil |
|00002000| 74 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |t)..(aut|oload (q|
|00002010| 75 6f 74 65 20 6e 72 6f | 66 66 2d 6d 6f 64 65 29 |uote nro|ff-mode)|
|00002020| 20 22 6e 72 6f 66 66 2d | 6d 6f 64 65 22 20 6e 69 | "nroff-|mode" ni|
|00002030| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|00002040| 20 28 71 75 6f 74 65 20 | 6c 69 73 74 2d 6f 70 74 | (quote |list-opt|
|00002050| 69 6f 6e 73 29 20 22 6f | 70 74 69 6f 6e 73 22 20 |ions) "o|ptions" |
|00002060| 6e 69 6c 20 20 74 29 0a | 0a 28 61 75 74 6f 6c 6f |nil t).|.(autolo|
|00002070| 61 64 20 28 71 75 6f 74 | 65 20 65 64 69 74 2d 6f |ad (quot|e edit-o|
|00002080| 70 74 69 6f 6e 73 29 20 | 22 6f 70 74 69 6f 6e 73 |ptions) |"options|
|00002090| 22 20 6e 69 6c 20 20 74 | 29 0a 0a 28 61 75 74 6f |" nil t|)..(auto|
|000020a0| 6c 6f 61 64 20 28 71 75 | 6f 74 65 20 6f 75 74 6c |load (qu|ote outl|
|000020b0| 69 6e 65 2d 6d 6f 64 65 | 29 20 22 6f 75 74 6c 69 |ine-mode|) "outli|
|000020c0| 6e 65 22 20 6e 69 6c 20 | 20 74 29 0a 0a 28 61 75 |ne" nil | t)..(au|
|000020d0| 74 6f 6c 6f 61 64 20 28 | 71 75 6f 74 65 20 65 64 |toload (|quote ed|
|000020e0| 69 74 2d 70 69 63 74 75 | 72 65 29 20 22 70 69 63 |it-pictu|re) "pic|
|000020f0| 74 75 72 65 22 20 6e 69 | 6c 20 20 74 29 0a 0a 28 |ture" ni|l t)..(|
|00002100| 66 73 65 74 20 28 71 75 | 6f 74 65 20 70 69 63 74 |fset (qu|ote pict|
|00002110| 75 72 65 2d 6d 6f 64 65 | 29 20 28 71 75 6f 74 65 |ure-mode|) (quote|
|00002120| 20 65 64 69 74 2d 70 69 | 63 74 75 72 65 29 29 0a | edit-pi|cture)).|
|00002130| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|00002140| 65 20 70 72 6f 6c 6f 67 | 2d 6d 6f 64 65 29 20 22 |e prolog|-mode) "|
|00002150| 70 72 6f 6c 6f 67 22 20 | 6e 69 6c 20 20 74 29 0a |prolog" |nil t).|
|00002160| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|00002170| 65 20 72 75 6e 2d 70 72 | 6f 6c 6f 67 29 20 22 70 |e run-pr|olog) "p|
|00002180| 72 6f 6c 6f 67 22 20 6e | 69 6c 20 20 74 29 0a 0a |rolog" n|il t)..|
|00002190| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|000021a0| 20 63 6c 65 61 72 2d 72 | 65 63 74 61 6e 67 6c 65 | clear-r|ectangle|
|000021b0| 29 20 22 72 65 63 74 22 | 20 6e 69 6c 20 20 74 29 |) "rect"| nil t)|
|000021c0| 0a 0a 28 61 75 74 6f 6c | 6f 61 64 20 28 71 75 6f |..(autol|oad (quo|
|000021d0| 74 65 20 64 65 6c 65 74 | 65 2d 72 65 63 74 61 6e |te delet|e-rectan|
|000021e0| 67 6c 65 29 20 22 72 65 | 63 74 22 20 6e 69 6c 20 |gle) "re|ct" nil |
|000021f0| 20 74 29 0a 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 | t)..(au|toload (|
|00002200| 71 75 6f 74 65 20 64 65 | 6c 65 74 65 2d 65 78 74 |quote de|lete-ext|
|00002210| 72 61 63 74 2d 72 65 63 | 74 61 6e 67 6c 65 29 20 |ract-rec|tangle) |
|00002220| 22 72 65 63 74 22 20 29 | 0a 0a 28 61 75 74 6f 6c |"rect" )|..(autol|
|00002230| 6f 61 64 20 28 71 75 6f | 74 65 20 65 78 74 72 61 |oad (quo|te extra|
|00002240| 63 74 2d 72 65 63 74 61 | 6e 67 6c 65 29 20 22 72 |ct-recta|ngle) "r|
|00002250| 65 63 74 22 20 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |ect" )..|(autoloa|
|00002260| 64 20 28 71 75 6f 74 65 | 20 69 6e 73 65 72 74 2d |d (quote| insert-|
|00002270| 72 65 63 74 61 6e 67 6c | 65 29 20 22 72 65 63 74 |rectangl|e) "rect|
|00002280| 22 20 29 0a 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 |" )..(au|toload (|
|00002290| 71 75 6f 74 65 20 6b 69 | 6c 6c 2d 72 65 63 74 61 |quote ki|ll-recta|
|000022a0| 6e 67 6c 65 29 20 22 72 | 65 63 74 22 20 6e 69 6c |ngle) "r|ect" nil|
|000022b0| 20 20 74 29 0a 0a 28 61 | 75 74 6f 6c 6f 61 64 20 | t)..(a|utoload |
|000022c0| 28 71 75 6f 74 65 20 6f | 70 65 6e 2d 72 65 63 74 |(quote o|pen-rect|
|000022d0| 61 6e 67 6c 65 29 20 22 | 72 65 63 74 22 20 6e 69 |angle) "|rect" ni|
|000022e0| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|000022f0| 20 28 71 75 6f 74 65 20 | 79 61 6e 6b 2d 72 65 63 | (quote |yank-rec|
|00002300| 74 61 6e 67 6c 65 29 20 | 22 72 65 63 74 22 20 6e |tangle) |"rect" n|
|00002310| 69 6c 20 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |il t)..|(autoloa|
|00002320| 64 20 28 71 75 6f 74 65 | 20 72 75 6e 2d 73 63 68 |d (quote| run-sch|
|00002330| 65 6d 65 29 20 22 78 73 | 63 68 65 6d 65 22 20 6e |eme) "xs|cheme" n|
|00002340| 69 6c 20 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |il t)..|(autoloa|
|00002350| 64 20 28 71 75 6f 74 65 | 20 73 63 68 65 6d 65 2d |d (quote| scheme-|
|00002360| 6d 6f 64 65 29 20 22 73 | 63 68 65 6d 65 22 20 6e |mode) "s|cheme" n|
|00002370| 69 6c 20 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |il t)..|(autoloa|
|00002380| 64 20 28 71 75 6f 74 65 | 20 73 63 72 69 62 65 2d |d (quote| scribe-|
|00002390| 6d 6f 64 65 29 20 22 73 | 63 72 69 62 65 22 20 6e |mode) "s|cribe" n|
|000023a0| 69 6c 20 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |il t)..|(autoloa|
|000023b0| 64 20 28 71 75 6f 74 65 | 20 73 6f 72 74 2d 6c 69 |d (quote| sort-li|
|000023c0| 6e 65 73 29 20 22 73 6f | 72 74 22 20 6e 69 6c 20 |nes) "so|rt" nil |
|000023d0| 20 74 29 0a 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 | t)..(au|toload (|
|000023e0| 71 75 6f 74 65 20 73 6f | 72 74 2d 70 61 72 61 67 |quote so|rt-parag|
|000023f0| 72 61 70 68 73 29 20 22 | 73 6f 72 74 22 20 6e 69 |raphs) "|sort" ni|
|00002400| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|00002410| 20 28 71 75 6f 74 65 20 | 73 6f 72 74 2d 70 61 67 | (quote |sort-pag|
|00002420| 65 73 29 20 22 73 6f 72 | 74 22 20 6e 69 6c 20 20 |es) "sor|t" nil |
|00002430| 74 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |t)..(aut|oload (q|
|00002440| 75 6f 74 65 20 73 6f 72 | 74 2d 6e 75 6d 65 72 69 |uote sor|t-numeri|
|00002450| 63 2d 66 69 65 6c 64 73 | 29 20 22 73 6f 72 74 22 |c-fields|) "sort"|
|00002460| 20 6e 69 6c 20 20 74 29 | 0a 0a 28 61 75 74 6f 6c | nil t)|..(autol|
|00002470| 6f 61 64 20 28 71 75 6f | 74 65 20 73 6f 72 74 2d |oad (quo|te sort-|
|00002480| 66 69 65 6c 64 73 29 20 | 22 73 6f 72 74 22 20 6e |fields) |"sort" n|
|00002490| 69 6c 20 20 74 29 0a 0a | 28 61 75 74 6f 6c 6f 61 |il t)..|(autoloa|
|000024a0| 64 20 28 71 75 6f 74 65 | 20 73 6f 72 74 2d 63 6f |d (quote| sort-co|
|000024b0| 6c 75 6d 6e 73 29 20 22 | 73 6f 72 74 22 20 6e 69 |lumns) "|sort" ni|
|000024c0| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|000024d0| 20 28 71 75 6f 74 65 20 | 73 6f 72 74 2d 72 65 67 | (quote |sort-reg|
|000024e0| 65 78 70 2d 66 69 65 6c | 64 73 29 20 22 73 6f 72 |exp-fiel|ds) "sor|
|000024f0| 74 22 20 6e 69 6c 20 20 | 74 29 0a 0a 28 61 75 74 |t" nil |t)..(aut|
|00002500| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 73 70 65 |oload (q|uote spe|
|00002510| 6c 6c 2d 62 75 66 66 65 | 72 29 20 22 73 70 65 6c |ll-buffe|r) "spel|
|00002520| 6c 22 20 6e 69 6c 20 20 | 74 29 0a 0a 28 61 75 74 |l" nil |t)..(aut|
|00002530| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 73 70 65 |oload (q|uote spe|
|00002540| 6c 6c 2d 72 65 67 69 6f | 6e 29 20 22 73 70 65 6c |ll-regio|n) "spel|
|00002550| 6c 22 20 6e 69 6c 20 20 | 74 29 0a 0a 28 64 65 66 |l" nil |t)..(def|
|00002560| 69 6e 65 2d 6b 65 79 20 | 65 73 63 2d 6d 61 70 20 |ine-key |esc-map |
|00002570| 22 24 22 20 28 71 75 6f | 74 65 20 73 70 65 6c 6c |"$" (quo|te spell|
|00002580| 2d 77 6f 72 64 29 29 0a | 0a 28 61 75 74 6f 6c 6f |-word)).|.(autolo|
|00002590| 61 64 20 28 71 75 6f 74 | 65 20 73 70 65 6c 6c 2d |ad (quot|e spell-|
|000025a0| 77 6f 72 64 29 20 22 73 | 70 65 6c 6c 22 20 6e 69 |word) "s|pell" ni|
|000025b0| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|000025c0| 20 28 71 75 6f 74 65 20 | 73 70 65 6c 6c 2d 73 74 | (quote |spell-st|
|000025d0| 72 69 6e 67 29 20 22 73 | 70 65 6c 6c 22 20 6e 69 |ring) "s|pell" ni|
|000025e0| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|000025f0| 20 28 71 75 6f 74 65 20 | 75 6e 74 61 62 69 66 79 | (quote |untabify|
|00002600| 29 20 22 74 61 62 69 66 | 79 22 20 6e 69 6c 20 20 |) "tabif|y" nil |
|00002610| 74 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |t)..(aut|oload (q|
|00002620| 75 6f 74 65 20 74 61 62 | 69 66 79 29 20 22 74 61 |uote tab|ify) "ta|
|00002630| 62 69 66 79 22 20 6e 69 | 6c 20 20 74 29 0a 0a 28 |bify" ni|l t)..(|
|00002640| 64 65 66 69 6e 65 2d 6b | 65 79 20 65 73 63 2d 6d |define-k|ey esc-m|
|00002650| 61 70 20 22 2e 22 20 28 | 71 75 6f 74 65 20 66 69 |ap "." (|quote fi|
|00002660| 6e 64 2d 74 61 67 29 29 | 0a 0a 28 61 75 74 6f 6c |nd-tag))|..(autol|
|00002670| 6f 61 64 20 28 71 75 6f | 74 65 20 66 69 6e 64 2d |oad (quo|te find-|
|00002680| 74 61 67 29 20 22 74 61 | 67 73 22 20 6e 69 6c 20 |tag) "ta|gs" nil |
|00002690| 20 74 29 0a 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 | t)..(de|fine-key|
|000026a0| 20 63 74 6c 2d 78 2d 34 | 2d 6d 61 70 20 22 2e 22 | ctl-x-4|-map "."|
|000026b0| 20 28 71 75 6f 74 65 20 | 66 69 6e 64 2d 74 61 67 | (quote |find-tag|
|000026c0| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 29 29 0a |-other-w|indow)).|
|000026d0| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|000026e0| 65 20 66 69 6e 64 2d 74 | 61 67 2d 6f 74 68 65 72 |e find-t|ag-other|
|000026f0| 2d 77 69 6e 64 6f 77 29 | 20 22 74 61 67 73 22 20 |-window)| "tags" |
|00002700| 6e 69 6c 20 20 74 29 0a | 0a 28 61 75 74 6f 6c 6f |nil t).|.(autolo|
|00002710| 61 64 20 28 71 75 6f 74 | 65 20 6c 69 73 74 2d 74 |ad (quot|e list-t|
|00002720| 61 67 73 29 20 22 74 61 | 67 73 22 20 6e 69 6c 20 |ags) "ta|gs" nil |
|00002730| 20 74 29 0a 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 | t)..(au|toload (|
|00002740| 71 75 6f 74 65 20 6e 65 | 78 74 2d 66 69 6c 65 29 |quote ne|xt-file)|
|00002750| 20 22 74 61 67 73 22 20 | 6e 69 6c 20 20 74 29 0a | "tags" |nil t).|
|00002760| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|00002770| 65 20 74 61 67 73 2d 61 | 70 72 6f 70 6f 73 29 20 |e tags-a|propos) |
|00002780| 22 74 61 67 73 22 20 6e | 69 6c 20 20 74 29 0a 0a |"tags" n|il t)..|
|00002790| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 65 73 63 2d |(define-|key esc-|
|000027a0| 6d 61 70 20 22 2c 22 20 | 28 71 75 6f 74 65 20 74 |map "," |(quote t|
|000027b0| 61 67 73 2d 6c 6f 6f 70 | 2d 63 6f 6e 74 69 6e 75 |ags-loop|-continu|
|000027c0| 65 29 29 0a 0a 28 61 75 | 74 6f 6c 6f 61 64 20 28 |e))..(au|toload (|
|000027d0| 71 75 6f 74 65 20 74 61 | 67 73 2d 6c 6f 6f 70 2d |quote ta|gs-loop-|
|000027e0| 63 6f 6e 74 69 6e 75 65 | 29 20 22 74 61 67 73 22 |continue|) "tags"|
|000027f0| 20 6e 69 6c 20 20 74 29 | 0a 0a 28 61 75 74 6f 6c | nil t)|..(autol|
|00002800| 6f 61 64 20 28 71 75 6f | 74 65 20 74 61 67 2d 74 |oad (quo|te tag-t|
|00002810| 61 62 6c 65 2d 66 69 6c | 65 73 29 20 22 74 61 67 |able-fil|es) "tag|
|00002820| 73 22 20 6e 69 6c 20 74 | 29 0a 0a 28 61 75 74 6f |s" nil t|)..(auto|
|00002830| 6c 6f 61 64 20 28 71 75 | 6f 74 65 20 74 61 67 73 |load (qu|ote tags|
|00002840| 2d 71 75 65 72 79 2d 72 | 65 70 6c 61 63 65 29 20 |-query-r|eplace) |
|00002850| 22 74 61 67 73 22 20 6e | 69 6c 20 20 74 29 0a 0a |"tags" n|il t)..|
|00002860| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00002870| 20 74 61 67 73 2d 73 65 | 61 72 63 68 29 20 22 74 | tags-se|arch) "t|
|00002880| 61 67 73 22 20 6e 69 6c | 20 20 74 29 0a 0a 28 61 |ags" nil| t)..(a|
|00002890| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 76 |utoload |(quote v|
|000028a0| 69 73 69 74 2d 74 61 67 | 73 2d 74 61 62 6c 65 29 |isit-tag|s-table)|
|000028b0| 20 22 74 61 67 73 22 20 | 6e 69 6c 20 20 74 29 0a | "tags" |nil t).|
|000028c0| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|000028d0| 65 20 6c 61 74 65 78 2d | 6d 6f 64 65 29 20 22 74 |e latex-|mode) "t|
|000028e0| 65 78 2d 6d 6f 64 65 22 | 20 6e 69 6c 20 20 74 29 |ex-mode"| nil t)|
|000028f0| 0a 0a 28 61 75 74 6f 6c | 6f 61 64 20 28 71 75 6f |..(autol|oad (quo|
|00002900| 74 65 20 70 6c 61 69 6e | 2d 74 65 78 2d 6d 6f 64 |te plain|-tex-mod|
|00002910| 65 29 20 22 74 65 78 2d | 6d 6f 64 65 22 20 6e 69 |e) "tex-|mode" ni|
|00002920| 6c 20 20 74 29 0a 0a 28 | 61 75 74 6f 6c 6f 61 64 |l t)..(|autoload|
|00002930| 20 28 71 75 6f 74 65 20 | 74 65 78 2d 6d 6f 64 65 | (quote |tex-mode|
|00002940| 29 20 22 74 65 78 2d 6d | 6f 64 65 22 20 6e 69 6c |) "tex-m|ode" nil|
|00002950| 20 20 74 29 0a 0a 28 66 | 73 65 74 20 28 71 75 6f | t)..(f|set (quo|
|00002960| 74 65 20 54 65 58 2d 6d | 6f 64 65 29 20 28 71 75 |te TeX-m|ode) (qu|
|00002970| 6f 74 65 20 74 65 78 2d | 6d 6f 64 65 29 29 0a 0a |ote tex-|mode))..|
|00002980| 28 66 73 65 74 20 28 71 | 75 6f 74 65 20 70 6c 61 |(fset (q|uote pla|
|00002990| 69 6e 2d 54 65 58 2d 6d | 6f 64 65 29 20 28 71 75 |in-TeX-m|ode) (qu|
|000029a0| 6f 74 65 20 70 6c 61 69 | 6e 2d 74 65 78 2d 6d 6f |ote plai|n-tex-mo|
|000029b0| 64 65 29 29 0a 0a 28 66 | 73 65 74 20 28 71 75 6f |de))..(f|set (quo|
|000029c0| 74 65 20 4c 61 54 65 58 | 2d 6d 6f 64 65 29 20 28 |te LaTeX|-mode) (|
|000029d0| 71 75 6f 74 65 20 6c 61 | 74 65 78 2d 6d 6f 64 65 |quote la|tex-mode|
|000029e0| 29 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 |))..(aut|oload (q|
|000029f0| 75 6f 74 65 20 74 65 78 | 69 6e 66 6f 2d 6d 6f 64 |uote tex|info-mod|
|00002a00| 65 29 20 22 74 65 78 69 | 6e 66 6f 22 20 6e 69 6c |e) "texi|nfo" nil|
|00002a10| 20 20 74 29 0a 0a 28 61 | 75 74 6f 6c 6f 61 64 20 | t)..(a|utoload |
|00002a20| 28 71 75 6f 74 65 20 74 | 65 78 69 6e 66 6f 2d 66 |(quote t|exinfo-f|
|00002a30| 6f 72 6d 61 74 2d 62 75 | 66 66 65 72 29 20 22 74 |ormat-bu|ffer) "t|
|00002a40| 65 78 69 6e 66 6d 74 22 | 20 6e 69 6c 20 20 74 29 |exinfmt"| nil t)|
|00002a50| 0a 0a 28 61 75 74 6f 6c | 6f 61 64 20 28 71 75 6f |..(autol|oad (quo|
|00002a60| 74 65 20 62 61 74 63 68 | 2d 74 65 78 69 6e 66 6f |te batch|-texinfo|
|00002a70| 2d 66 6f 72 6d 61 74 29 | 20 22 74 65 78 69 6e 66 |-format)| "texinf|
|00002a80| 6d 74 22 20 6e 69 6c 20 | 20 6e 69 6c 29 0a 0a 28 |mt" nil | nil)..(|
|00002a90| 61 75 74 6f 6c 6f 61 64 | 20 28 71 75 6f 74 65 20 |autoload| (quote |
|00002aa0| 64 69 73 70 6c 61 79 2d | 74 69 6d 65 29 20 22 74 |display-|time) "t|
|00002ab0| 69 6d 65 22 20 6e 69 6c | 20 20 74 29 0a 0a 28 61 |ime" nil| t)..(a|
|00002ac0| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 75 |utoload |(quote u|
|00002ad0| 6e 64 65 72 6c 69 6e 65 | 2d 72 65 67 69 6f 6e 29 |nderline|-region)|
|00002ae0| 20 22 75 6e 64 65 72 6c | 69 6e 65 22 20 6e 69 6c | "underl|ine" nil|
|00002af0| 20 20 74 29 0a 0a 28 61 | 75 74 6f 6c 6f 61 64 20 | t)..(a|utoload |
|00002b00| 28 71 75 6f 74 65 20 75 | 6e 75 6e 64 65 72 6c 69 |(quote u|nunderli|
|00002b10| 6e 65 2d 72 65 67 69 6f | 6e 29 20 22 75 6e 64 65 |ne-regio|n) "unde|
|00002b20| 72 6c 69 6e 65 22 20 6e | 69 6c 20 20 74 29 0a 0a |rline" n|il t)..|
|00002b30| 28 61 75 74 6f 6c 6f 61 | 64 20 28 71 75 6f 74 65 |(autoloa|d (quote|
|00002b40| 20 76 69 65 77 2d 66 69 | 6c 65 29 20 22 76 69 65 | view-fi|le) "vie|
|00002b50| 77 22 20 6e 69 6c 20 20 | 74 29 0a 0a 28 61 75 74 |w" nil |t)..(aut|
|00002b60| 6f 6c 6f 61 64 20 28 71 | 75 6f 74 65 20 76 69 65 |oload (q|uote vie|
|00002b70| 77 2d 62 75 66 66 65 72 | 29 20 22 76 69 65 77 22 |w-buffer|) "view"|
|00002b80| 20 6e 69 6c 20 20 74 29 | 0a 0a 28 61 75 74 6f 6c | nil t)|..(autol|
|00002b90| 6f 61 64 20 28 71 75 6f | 74 65 20 76 69 65 77 2d |oad (quo|te view-|
|00002ba0| 6d 6f 64 65 29 20 22 76 | 69 65 77 22 20 6e 69 6c |mode) "v|iew" nil|
|00002bb0| 20 29 0a 0a 28 61 75 74 | 6f 6c 6f 61 64 20 28 71 | )..(aut|oload (q|
|00002bc0| 75 6f 74 65 20 76 69 70 | 2d 6d 6f 64 65 29 20 22 |uote vip|-mode) "|
|00002bd0| 76 69 70 22 20 6e 69 6c | 20 20 74 29 0a 0a 28 61 |vip" nil| t)..(a|
|00002be0| 75 74 6f 6c 6f 61 64 20 | 28 71 75 6f 74 65 20 79 |utoload |(quote y|
|00002bf0| 6f 77 29 20 22 79 6f 77 | 22 20 6e 69 6c 20 20 74 |ow) "yow|" nil t|
|00002c00| 29 0a 0a 28 61 75 74 6f | 6c 6f 61 64 20 28 71 75 |)..(auto|load (qu|
|00002c10| 6f 74 65 20 70 73 79 63 | 68 6f 61 6e 61 6c 79 7a |ote psyc|hoanalyz|
|00002c20| 65 2d 70 69 6e 68 65 61 | 64 29 20 22 79 6f 77 22 |e-pinhea|d) "yow"|
|00002c30| 20 6e 69 6c 20 20 74 29 | 0a 0a 28 64 65 66 69 6e | nil t)|..(defin|
|00002c40| 65 2d 6b 65 79 20 65 73 | 63 2d 6d 61 70 20 22 06 |e-key es|c-map ".|
|00002c50| 22 20 28 71 75 6f 74 65 | 20 66 6f 72 77 61 72 64 |" (quote| forward|
|00002c60| 2d 73 65 78 70 29 29 0a | 0a 28 64 65 66 69 6e 65 |-sexp)).|.(define|
|00002c70| 2d 6b 65 79 20 65 73 63 | 2d 6d 61 70 20 22 02 22 |-key esc|-map "."|
|00002c80| 20 28 71 75 6f 74 65 20 | 62 61 63 6b 77 61 72 64 | (quote |backward|
|00002c90| 2d 73 65 78 70 29 29 0a | 0a 28 64 65 66 69 6e 65 |-sexp)).|.(define|
|00002ca0| 2d 6b 65 79 20 65 73 63 | 2d 6d 61 70 20 22 15 22 |-key esc|-map "."|
|00002cb0| 20 28 71 75 6f 74 65 20 | 62 61 63 6b 77 61 72 64 | (quote |backward|
|00002cc0| 2d 75 70 2d 6c 69 73 74 | 29 29 0a 0a 28 64 65 66 |-up-list|))..(def|
|00002cd0| 69 6e 65 2d 6b 65 79 20 | 65 73 63 2d 6d 61 70 20 |ine-key |esc-map |
|00002ce0| 22 00 22 20 28 71 75 6f | 74 65 20 6d 61 72 6b 2d |"." (quo|te mark-|
|00002cf0| 73 65 78 70 29 29 0a 0a | 28 64 65 66 69 6e 65 2d |sexp))..|(define-|
|00002d00| 6b 65 79 20 65 73 63 2d | 6d 61 70 20 22 04 22 20 |key esc-|map "." |
|00002d10| 28 71 75 6f 74 65 20 64 | 6f 77 6e 2d 6c 69 73 74 |(quote d|own-list|
|00002d20| 29 29 0a 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |))..(def|ine-key |
|00002d30| 65 73 63 2d 6d 61 70 20 | 22 0b 22 20 28 71 75 6f |esc-map |"." (quo|
|00002d40| 74 65 20 6b 69 6c 6c 2d | 73 65 78 70 29 29 0a 0a |te kill-|sexp))..|
|00002d50| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 65 73 63 2d |(define-|key esc-|
|00002d60| 6d 61 70 20 22 0e 22 20 | 28 71 75 6f 74 65 20 66 |map "." |(quote f|
|00002d70| 6f 72 77 61 72 64 2d 6c | 69 73 74 29 29 0a 0a 28 |orward-l|ist))..(|
|00002d80| 64 65 66 69 6e 65 2d 6b | 65 79 20 65 73 63 2d 6d |define-k|ey esc-m|
|00002d90| 61 70 20 22 10 22 20 28 | 71 75 6f 74 65 20 62 61 |ap "." (|quote ba|
|00002da0| 63 6b 77 61 72 64 2d 6c | 69 73 74 29 29 0a 0a 28 |ckward-l|ist))..(|
|00002db0| 64 65 66 69 6e 65 2d 6b | 65 79 20 65 73 63 2d 6d |define-k|ey esc-m|
|00002dc0| 61 70 20 22 01 22 20 28 | 71 75 6f 74 65 20 62 65 |ap "." (|quote be|
|00002dd0| 67 69 6e 6e 69 6e 67 2d | 6f 66 2d 64 65 66 75 6e |ginning-|of-defun|
|00002de0| 29 29 0a 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |))..(def|ine-key |
|00002df0| 65 73 63 2d 6d 61 70 20 | 22 05 22 20 28 71 75 6f |esc-map |"." (quo|
|00002e00| 74 65 20 65 6e 64 2d 6f | 66 2d 64 65 66 75 6e 29 |te end-o|f-defun)|
|00002e10| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 65 |)..(defi|ne-key e|
|00002e20| 73 63 2d 6d 61 70 20 22 | 08 22 20 28 71 75 6f 74 |sc-map "|." (quot|
|00002e30| 65 20 6d 61 72 6b 2d 64 | 65 66 75 6e 29 29 0a 0a |e mark-d|efun))..|
|00002e40| 28 64 65 66 69 6e 65 2d | 6b 65 79 20 65 73 63 2d |(define-|key esc-|
|00002e50| 6d 61 70 20 22 28 22 20 | 28 71 75 6f 74 65 20 69 |map "(" |(quote i|
|00002e60| 6e 73 65 72 74 2d 70 61 | 72 65 6e 74 68 65 73 65 |nsert-pa|renthese|
|00002e70| 73 29 29 0a 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |s))..(de|fine-key|
|00002e80| 20 65 73 63 2d 6d 61 70 | 20 22 29 22 20 28 71 75 | esc-map| ")" (qu|
|00002e90| 6f 74 65 20 6d 6f 76 65 | 2d 70 61 73 74 2d 63 6c |ote move|-past-cl|
|00002ea0| 6f 73 65 2d 61 6e 64 2d | 72 65 69 6e 64 65 6e 74 |ose-and-|reindent|
|00002eb0| 29 29 0a 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |))..(def|ine-key |
|00002ec0| 65 73 63 2d 6d 61 70 20 | 22 09 22 20 28 71 75 6f |esc-map |"." (quo|
|00002ed0| 74 65 20 6c 69 73 70 2d | 63 6f 6d 70 6c 65 74 65 |te lisp-|complete|
|00002ee0| 2d 73 79 6d 62 6f 6c 29 | 29 0a 0a 28 64 65 66 69 |-symbol)|)..(defi|
|00002ef0| 6e 65 2d 6b 65 79 20 63 | 74 6c 2d 78 2d 6d 61 70 |ne-key c|tl-x-map|
|00002f00| 20 22 05 22 20 28 71 75 | 6f 74 65 20 65 76 61 6c | "." (qu|ote eval|
|00002f10| 2d 6c 61 73 74 2d 73 65 | 78 70 29 29 0a 0a 28 64 |-last-se|xp))..(d|
|00002f20| 65 66 69 6e 65 2d 6b 65 | 79 20 63 74 6c 2d 78 2d |efine-ke|y ctl-x-|
|00002f30| 6d 61 70 20 22 2f 22 20 | 28 71 75 6f 74 65 20 70 |map "/" |(quote p|
|00002f40| 6f 69 6e 74 2d 74 6f 2d | 72 65 67 69 73 74 65 72 |oint-to-|register|
|00002f50| 29 29 0a 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |))..(def|ine-key |
|00002f60| 63 74 6c 2d 78 2d 6d 61 | 70 20 22 6a 22 20 28 71 |ctl-x-ma|p "j" (q|
|00002f70| 75 6f 74 65 20 72 65 67 | 69 73 74 65 72 2d 74 6f |uote reg|ister-to|
|00002f80| 2d 70 6f 69 6e 74 29 29 | 0a 0a 28 64 65 66 69 6e |-point))|..(defin|
|00002f90| 65 2d 6b 65 79 20 63 74 | 6c 2d 78 2d 6d 61 70 20 |e-key ct|l-x-map |
|00002fa0| 22 78 22 20 28 71 75 6f | 74 65 20 63 6f 70 79 2d |"x" (quo|te copy-|
|00002fb0| 74 6f 2d 72 65 67 69 73 | 74 65 72 29 29 0a 0a 28 |to-regis|ter))..(|
|00002fc0| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 74 6c 2d 78 |define-k|ey ctl-x|
|00002fd0| 2d 6d 61 70 20 22 67 22 | 20 28 71 75 6f 74 65 20 |-map "g"| (quote |
|00002fe0| 69 6e 73 65 72 74 2d 72 | 65 67 69 73 74 65 72 29 |insert-r|egister)|
|00002ff0| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |)..(defi|ne-key c|
|00003000| 74 6c 2d 78 2d 6d 61 70 | 20 22 72 22 20 28 71 75 |tl-x-map| "r" (qu|
|00003010| 6f 74 65 20 63 6f 70 79 | 2d 72 65 63 74 61 6e 67 |ote copy|-rectang|
|00003020| 6c 65 2d 74 6f 2d 72 65 | 67 69 73 74 65 72 29 29 |le-to-re|gister))|
|00003030| 0a 0a 28 64 65 66 69 6e | 65 2d 6b 65 79 20 65 73 |..(defin|e-key es|
|00003040| 63 2d 6d 61 70 20 22 71 | 22 20 28 71 75 6f 74 65 |c-map "q|" (quote|
|00003050| 20 66 69 6c 6c 2d 70 61 | 72 61 67 72 61 70 68 29 | fill-pa|ragraph)|
|00003060| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 65 |)..(defi|ne-key e|
|00003070| 73 63 2d 6d 61 70 20 22 | 67 22 20 28 71 75 6f 74 |sc-map "|g" (quot|
|00003080| 65 20 66 69 6c 6c 2d 72 | 65 67 69 6f 6e 29 29 0a |e fill-r|egion)).|
|00003090| 0a 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 74 6c |.(define|-key ctl|
|000030a0| 2d 78 2d 6d 61 70 20 22 | 2e 22 20 28 71 75 6f 74 |-x-map "|." (quot|
|000030b0| 65 20 73 65 74 2d 66 69 | 6c 6c 2d 70 72 65 66 69 |e set-fi|ll-prefi|
|000030c0| 78 29 29 0a 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |x))..(de|fine-key|
|000030d0| 20 65 73 63 2d 6d 61 70 | 20 22 5b 22 20 28 71 75 | esc-map| "[" (qu|
|000030e0| 6f 74 65 20 62 61 63 6b | 77 61 72 64 2d 70 61 72 |ote back|ward-par|
|000030f0| 61 67 72 61 70 68 29 29 | 0a 0a 28 64 65 66 69 6e |agraph))|..(defin|
|00003100| 65 2d 6b 65 79 20 65 73 | 63 2d 6d 61 70 20 22 5d |e-key es|c-map "]|
|00003110| 22 20 28 71 75 6f 74 65 | 20 66 6f 72 77 61 72 64 |" (quote| forward|
|00003120| 2d 70 61 72 61 67 72 61 | 70 68 29 29 0a 0a 28 64 |-paragra|ph))..(d|
|00003130| 65 66 69 6e 65 2d 6b 65 | 79 20 65 73 63 2d 6d 61 |efine-ke|y esc-ma|
|00003140| 70 20 22 68 22 20 28 71 | 75 6f 74 65 20 6d 61 72 |p "h" (q|uote mar|
|00003150| 6b 2d 70 61 72 61 67 72 | 61 70 68 29 29 0a 0a 28 |k-paragr|aph))..(|
|00003160| 64 65 66 69 6e 65 2d 6b | 65 79 20 65 73 63 2d 6d |define-k|ey esc-m|
|00003170| 61 70 20 22 61 22 20 28 | 71 75 6f 74 65 20 62 61 |ap "a" (|quote ba|
|00003180| 63 6b 77 61 72 64 2d 73 | 65 6e 74 65 6e 63 65 29 |ckward-s|entence)|
|00003190| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 65 |)..(defi|ne-key e|
|000031a0| 73 63 2d 6d 61 70 20 22 | 65 22 20 28 71 75 6f 74 |sc-map "|e" (quot|
|000031b0| 65 20 66 6f 72 77 61 72 | 64 2d 73 65 6e 74 65 6e |e forwar|d-senten|
|000031c0| 63 65 29 29 0a 0a 28 64 | 65 66 69 6e 65 2d 6b 65 |ce))..(d|efine-ke|
|000031d0| 79 20 65 73 63 2d 6d 61 | 70 20 22 6b 22 20 28 71 |y esc-ma|p "k" (q|
|000031e0| 75 6f 74 65 20 6b 69 6c | 6c 2d 73 65 6e 74 65 6e |uote kil|l-senten|
|000031f0| 63 65 29 29 0a 0a 28 64 | 65 66 69 6e 65 2d 6b 65 |ce))..(d|efine-ke|
|00003200| 79 20 63 74 6c 2d 78 2d | 6d 61 70 20 22 7f 22 20 |y ctl-x-|map "." |
|00003210| 28 71 75 6f 74 65 20 62 | 61 63 6b 77 61 72 64 2d |(quote b|ackward-|
|00003220| 6b 69 6c 6c 2d 73 65 6e | 74 65 6e 63 65 29 29 0a |kill-sen|tence)).|
|00003230| 0a 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 63 74 6c |.(define|-key ctl|
|00003240| 2d 78 2d 6d 61 70 20 22 | 5b 22 20 28 71 75 6f 74 |-x-map "|[" (quot|
|00003250| 65 20 62 61 63 6b 77 61 | 72 64 2d 70 61 67 65 29 |e backwa|rd-page)|
|00003260| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |)..(defi|ne-key c|
|00003270| 74 6c 2d 78 2d 6d 61 70 | 20 22 5d 22 20 28 71 75 |tl-x-map| "]" (qu|
|00003280| 6f 74 65 20 66 6f 72 77 | 61 72 64 2d 70 61 67 65 |ote forw|ard-page|
|00003290| 29 29 0a 0a 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |))..(def|ine-key |
|000032a0| 63 74 6c 2d 78 2d 6d 61 | 70 20 22 10 22 20 28 71 |ctl-x-ma|p "." (q|
|000032b0| 75 6f 74 65 20 6d 61 72 | 6b 2d 70 61 67 65 29 29 |uote mar|k-page))|
|000032c0| 0a 0a 28 70 75 74 20 28 | 71 75 6f 74 65 20 6e 61 |..(put (|quote na|
|000032d0| 72 72 6f 77 2d 74 6f 2d | 72 65 67 69 6f 6e 29 20 |rrow-to-|region) |
|000032e0| 28 71 75 6f 74 65 20 64 | 69 73 61 62 6c 65 64 29 |(quote d|isabled)|
|000032f0| 20 74 29 0a 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 | t)..(de|fine-key|
|00003300| 20 63 74 6c 2d 78 2d 6d | 61 70 20 22 70 22 20 28 | ctl-x-m|ap "p" (|
|00003310| 71 75 6f 74 65 20 6e 61 | 72 72 6f 77 2d 74 6f 2d |quote na|rrow-to-|
|00003320| 70 61 67 65 29 29 0a 0a | 28 70 75 74 20 28 71 75 |page))..|(put (qu|
|00003330| 6f 74 65 20 6e 61 72 72 | 6f 77 2d 74 6f 2d 70 61 |ote narr|ow-to-pa|
|00003340| 67 65 29 20 28 71 75 6f | 74 65 20 64 69 73 61 62 |ge) (quo|te disab|
|00003350| 6c 65 64 29 20 74 29 0a | 0a 28 64 65 66 69 6e 65 |led) t).|.(define|
|00003360| 2d 6b 65 79 20 63 74 6c | 2d 78 2d 6d 61 70 20 22 |-key ctl|-x-map "|
|00003370| 6c 22 20 28 71 75 6f 74 | 65 20 63 6f 75 6e 74 2d |l" (quot|e count-|
|00003380| 6c 69 6e 65 73 2d 70 61 | 67 65 29 29 0a 0a 28 64 |lines-pa|ge))..(d|
|00003390| 65 66 75 6e 20 69 73 65 | 61 72 63 68 2d 66 6f 72 |efun ise|arch-for|
|000033a0| 77 61 72 64 20 6e 69 6c | 20 20 28 69 6e 74 65 72 |ward nil| (inter|
|000033b0| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|000033c0| 64 65 20 22 c1 88 c2 c0 | 21 87 22 20 5b 74 20 6e |de "....|!." [t n|
|000033d0| 69 6c 20 69 73 65 61 72 | 63 68 5d 20 32 29 29 0a |il isear|ch] 2)).|
|000033e0| 0a 28 64 65 66 75 6e 20 | 69 73 65 61 72 63 68 2d |.(defun |isearch-|
|000033f0| 66 6f 72 77 61 72 64 2d | 72 65 67 65 78 70 20 6e |forward-|regexp n|
|00003400| 69 6c 20 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |il (int|eractive|
|00003410| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 c1 88 |) (byte-|code "..|
|00003420| c2 c0 c0 5c 22 87 22 20 | 5b 74 20 6e 69 6c 20 69 |...\"." |[t nil i|
|00003430| 73 65 61 72 63 68 5d 20 | 33 29 29 0a 0a 28 64 65 |search] |3))..(de|
|00003440| 66 75 6e 20 69 73 65 61 | 72 63 68 2d 62 61 63 6b |fun isea|rch-back|
|00003450| 77 61 72 64 20 6e 69 6c | 20 20 28 69 6e 74 65 72 |ward nil| (inter|
|00003460| 61 63 74 69 76 65 29 20 | 28 62 79 74 65 2d 63 6f |active) |(byte-co|
|00003470| 64 65 20 22 c0 88 c1 c0 | 21 87 22 20 5b 6e 69 6c |de "....|!." [nil|
|00003480| 20 69 73 65 61 72 63 68 | 5d 20 32 29 29 0a 0a 28 | isearch|] 2))..(|
|00003490| 64 65 66 75 6e 20 69 73 | 65 61 72 63 68 2d 62 61 |defun is|earch-ba|
|000034a0| 63 6b 77 61 72 64 2d 72 | 65 67 65 78 70 20 6e 69 |ckward-r|egexp ni|
|000034b0| 6c 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 29 |l (inte|ractive)|
|000034c0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c0 88 c2 | (byte-c|ode "...|
|000034d0| c0 c1 5c 22 87 22 20 5b | 6e 69 6c 20 74 20 69 73 |..\"." [|nil t is|
|000034e0| 65 61 72 63 68 5d 20 33 | 29 29 0a 0a 28 64 65 66 |earch] 3|))..(def|
|000034f0| 76 61 72 20 73 65 61 72 | 63 68 2d 6c 61 73 74 2d |var sear|ch-last-|
|00003500| 73 74 72 69 6e 67 20 22 | 22 20 29 0a 0a 28 64 65 |string "|" )..(de|
|00003510| 66 76 61 72 20 73 65 61 | 72 63 68 2d 6c 61 73 74 |fvar sea|rch-last|
|00003520| 2d 72 65 67 65 78 70 20 | 22 22 20 29 0a 0a 28 64 |-regexp |"" )..(d|
|00003530| 65 66 63 6f 6e 73 74 20 | 73 65 61 72 63 68 2d 72 |efconst |search-r|
|00003540| 65 70 65 61 74 2d 63 68 | 61 72 20 31 39 20 29 0a |epeat-ch|ar 19 ).|
|00003550| 0a 28 64 65 66 63 6f 6e | 73 74 20 73 65 61 72 63 |.(defcon|st searc|
|00003560| 68 2d 72 65 76 65 72 73 | 65 2d 63 68 61 72 20 31 |h-revers|e-char 1|
|00003570| 38 20 29 0a 0a 28 64 65 | 66 63 6f 6e 73 74 20 73 |8 )..(de|fconst s|
|00003580| 65 61 72 63 68 2d 65 78 | 69 74 2d 63 68 61 72 20 |earch-ex|it-char |
|00003590| 32 37 20 29 0a 0a 28 64 | 65 66 63 6f 6e 73 74 20 |27 )..(d|efconst |
|000035a0| 73 65 61 72 63 68 2d 64 | 65 6c 65 74 65 2d 63 68 |search-d|elete-ch|
|000035b0| 61 72 20 31 32 37 20 29 | 0a 0a 28 64 65 66 63 6f |ar 127 )|..(defco|
|000035c0| 6e 73 74 20 73 65 61 72 | 63 68 2d 71 75 6f 74 65 |nst sear|ch-quote|
|000035d0| 2d 63 68 61 72 20 31 37 | 20 29 0a 0a 28 64 65 66 |-char 17| )..(def|
|000035e0| 63 6f 6e 73 74 20 73 65 | 61 72 63 68 2d 79 61 6e |const se|arch-yan|
|000035f0| 6b 2d 77 6f 72 64 2d 63 | 68 61 72 20 32 33 20 29 |k-word-c|har 23 )|
|00003600| 0a 0a 28 64 65 66 63 6f | 6e 73 74 20 73 65 61 72 |..(defco|nst sear|
|00003610| 63 68 2d 79 61 6e 6b 2d | 6c 69 6e 65 2d 63 68 61 |ch-yank-|line-cha|
|00003620| 72 20 32 35 20 29 0a 0a | 28 64 65 66 63 6f 6e 73 |r 25 )..|(defcons|
|00003630| 74 20 73 65 61 72 63 68 | 2d 65 78 69 74 2d 6f 70 |t search|-exit-op|
|00003640| 74 69 6f 6e 20 74 20 29 | 0a 0a 28 64 65 66 76 61 |tion t )|..(defva|
|00003650| 72 20 73 65 61 72 63 68 | 2d 73 6c 6f 77 2d 77 69 |r search|-slow-wi|
|00003660| 6e 64 6f 77 2d 6c 69 6e | 65 73 20 31 20 29 0a 0a |ndow-lin|es 1 )..|
|00003670| 28 64 65 66 76 61 72 20 | 73 65 61 72 63 68 2d 73 |(defvar |search-s|
|00003680| 6c 6f 77 2d 73 70 65 65 | 64 20 31 32 30 30 20 29 |low-spee|d 1200 )|
|00003690| 0a 0a 28 61 75 74 6f 6c | 6f 61 64 20 28 71 75 6f |..(autol|oad (quo|
|000036a0| 74 65 20 69 73 65 61 72 | 63 68 29 20 22 69 73 65 |te isear|ch) "ise|
|000036b0| 61 72 63 68 22 29 0a 0a | 28 64 65 66 69 6e 65 2d |arch")..|(define-|
|000036c0| 6b 65 79 20 67 6c 6f 62 | 61 6c 2d 6d 61 70 20 22 |key glob|al-map "|
|000036d0| 13 22 20 28 71 75 6f 74 | 65 20 69 73 65 61 72 63 |." (quot|e isearc|
|000036e0| 68 2d 66 6f 72 77 61 72 | 64 29 29 0a 0a 28 64 65 |h-forwar|d))..(de|
|000036f0| 66 69 6e 65 2d 6b 65 79 | 20 67 6c 6f 62 61 6c 2d |fine-key| global-|
|00003700| 6d 61 70 20 22 12 22 20 | 28 71 75 6f 74 65 20 69 |map "." |(quote i|
|00003710| 73 65 61 72 63 68 2d 62 | 61 63 6b 77 61 72 64 29 |search-b|ackward)|
|00003720| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 65 |)..(defi|ne-key e|
|00003730| 73 63 2d 6d 61 70 20 22 | 13 22 20 28 71 75 6f 74 |sc-map "|." (quot|
|00003740| 65 20 69 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |e isearc|h-forwar|
|00003750| 64 2d 72 65 67 65 78 70 | 29 29 0a 0a 28 64 65 66 |d-regexp|))..(def|
|00003760| 75 6e 20 71 75 65 72 79 | 2d 72 65 70 6c 61 63 65 |un query|-replace|
|00003770| 20 28 66 72 6f 6d 2d 73 | 74 72 69 6e 67 20 74 6f | (from-s|tring to|
|00003780| 2d 73 74 72 69 6e 67 20 | 26 6f 70 74 69 6f 6e 61 |-string |&optiona|
|00003790| 6c 20 61 72 67 29 20 20 | 28 69 6e 74 65 72 61 63 |l arg) |(interac|
|000037a0| 74 69 76 65 20 22 73 51 | 75 65 72 79 20 72 65 70 |tive "sQ|uery rep|
|000037b0| 6c 61 63 65 3a 20 0a 73 | 51 75 65 72 79 20 72 65 |lace: .s|Query re|
|000037c0| 70 6c 61 63 65 20 25 73 | 20 77 69 74 68 3a 20 0a |place %s| with: .|
|000037d0| 50 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |P") (byt|e-code "|
|000037e0| c3 88 c5 08 09 c2 c3 0c | 25 88 c6 c7 21 87 22 20 |........|%...!." |
|000037f0| 5b 66 72 6f 6d 2d 73 74 | 72 69 6e 67 20 74 6f 2d |[from-st|ring to-|
|00003800| 73 74 72 69 6e 67 20 74 | 20 6e 69 6c 20 61 72 67 |string t| nil arg|
|00003810| 20 70 65 72 66 6f 72 6d | 2d 72 65 70 6c 61 63 65 | perform|-replace|
|00003820| 20 6d 65 73 73 61 67 65 | 20 22 44 6f 6e 65 22 5d | message| "Done"]|
|00003830| 20 36 29 29 0a 0a 28 64 | 65 66 75 6e 20 71 75 65 | 6))..(d|efun que|
|00003840| 72 79 2d 72 65 70 6c 61 | 63 65 2d 72 65 67 65 78 |ry-repla|ce-regex|
|00003850| 70 20 28 72 65 67 65 78 | 70 20 74 6f 2d 73 74 72 |p (regex|p to-str|
|00003860| 69 6e 67 20 26 6f 70 74 | 69 6f 6e 61 6c 20 61 72 |ing &opt|ional ar|
|00003870| 67 29 20 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |g) (int|eractive|
|00003880| 20 22 73 51 75 65 72 79 | 20 72 65 70 6c 61 63 65 | "sQuery| replace|
|00003890| 20 72 65 67 65 78 70 3a | 20 0a 73 51 75 65 72 79 | regexp:| .sQuery|
|000038a0| 20 72 65 70 6c 61 63 65 | 20 72 65 67 65 78 70 20 | replace| regexp |
|000038b0| 25 73 20 77 69 74 68 3a | 20 0a 50 22 29 20 28 62 |%s with:| .P") (b|
|000038c0| 79 74 65 2d 63 6f 64 65 | 20 22 c4 88 c5 08 09 c2 |yte-code| "......|
|000038d0| c2 0b 25 88 c6 c7 21 87 | 22 20 5b 72 65 67 65 78 |..%...!.|" [regex|
|000038e0| 70 20 74 6f 2d 73 74 72 | 69 6e 67 20 74 20 61 72 |p to-str|ing t ar|
|000038f0| 67 20 6e 69 6c 20 70 65 | 72 66 6f 72 6d 2d 72 65 |g nil pe|rform-re|
|00003900| 70 6c 61 63 65 20 6d 65 | 73 73 61 67 65 20 22 44 |place me|ssage "D|
|00003910| 6f 6e 65 22 5d 20 36 29 | 29 0a 0a 28 64 65 66 75 |one"] 6)|)..(defu|
|00003920| 6e 20 72 65 70 6c 61 63 | 65 2d 73 74 72 69 6e 67 |n replac|e-string|
|00003930| 20 28 66 72 6f 6d 2d 73 | 74 72 69 6e 67 20 74 6f | (from-s|tring to|
|00003940| 2d 73 74 72 69 6e 67 20 | 26 6f 70 74 69 6f 6e 61 |-string |&optiona|
|00003950| 6c 20 64 65 6c 69 6d 69 | 74 65 64 29 20 20 28 69 |l delimi|ted) (i|
|00003960| 6e 74 65 72 61 63 74 69 | 76 65 20 22 73 52 65 70 |nteracti|ve "sRep|
|00003970| 6c 61 63 65 20 73 74 72 | 69 6e 67 3a 20 0a 73 52 |lace str|ing: .sR|
|00003980| 65 70 6c 61 63 65 20 73 | 74 72 69 6e 67 20 25 73 |eplace s|tring %s|
|00003990| 20 77 69 74 68 3a 20 0a | 50 22 29 20 28 62 79 74 | with: .|P") (byt|
|000039a0| 65 2d 63 6f 64 65 20 22 | c2 88 c4 08 09 c2 c2 0b |e-code "|........|
|000039b0| 25 88 c5 c6 21 87 22 20 | 5b 66 72 6f 6d 2d 73 74 |%...!." |[from-st|
|000039c0| 72 69 6e 67 20 74 6f 2d | 73 74 72 69 6e 67 20 6e |ring to-|string n|
|000039d0| 69 6c 20 64 65 6c 69 6d | 69 74 65 64 20 70 65 72 |il delim|ited per|
|000039e0| 66 6f 72 6d 2d 72 65 70 | 6c 61 63 65 20 6d 65 73 |form-rep|lace mes|
|000039f0| 73 61 67 65 20 22 44 6f | 6e 65 22 5d 20 36 29 29 |sage "Do|ne"] 6))|
|00003a00| 0a 0a 28 64 65 66 75 6e | 20 72 65 70 6c 61 63 65 |..(defun| replace|
|00003a10| 2d 72 65 67 65 78 70 20 | 28 72 65 67 65 78 70 20 |-regexp |(regexp |
|00003a20| 74 6f 2d 73 74 72 69 6e | 67 20 26 6f 70 74 69 6f |to-strin|g &optio|
|00003a30| 6e 61 6c 20 64 65 6c 69 | 6d 69 74 65 64 29 20 20 |nal deli|mited) |
|00003a40| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 73 52 |(interac|tive "sR|
|00003a50| 65 70 6c 61 63 65 20 72 | 65 67 65 78 70 3a 20 0a |eplace r|egexp: .|
|00003a60| 73 52 65 70 6c 61 63 65 | 20 72 65 67 65 78 70 20 |sReplace| regexp |
|00003a70| 25 73 20 77 69 74 68 3a | 20 0a 50 22 29 20 28 62 |%s with:| .P") (b|
|00003a80| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 c5 08 09 c2 |yte-code| "......|
|00003a90| c3 0c 25 88 c6 c7 21 87 | 22 20 5b 72 65 67 65 78 |..%...!.|" [regex|
|00003aa0| 70 20 74 6f 2d 73 74 72 | 69 6e 67 20 6e 69 6c 20 |p to-str|ing nil |
|00003ab0| 74 20 64 65 6c 69 6d 69 | 74 65 64 20 70 65 72 66 |t delimi|ted perf|
|00003ac0| 6f 72 6d 2d 72 65 70 6c | 61 63 65 20 6d 65 73 73 |orm-repl|ace mess|
|00003ad0| 61 67 65 20 22 44 6f 6e | 65 22 5d 20 36 29 29 0a |age "Don|e"] 6)).|
|00003ae0| 0a 28 64 65 66 69 6e 65 | 2d 6b 65 79 20 65 73 63 |.(define|-key esc|
|00003af0| 2d 6d 61 70 20 22 25 22 | 20 28 71 75 6f 74 65 20 |-map "%"| (quote |
|00003b00| 71 75 65 72 79 2d 72 65 | 70 6c 61 63 65 29 29 0a |query-re|place)).|
|00003b10| 0a 28 61 75 74 6f 6c 6f | 61 64 20 28 71 75 6f 74 |.(autolo|ad (quot|
|00003b20| 65 20 70 65 72 66 6f 72 | 6d 2d 72 65 70 6c 61 63 |e perfor|m-replac|
|00003b30| 65 29 20 22 72 65 70 6c | 61 63 65 22 29 0a 0a 28 |e) "repl|ace")..(|
|00003b40| 64 65 66 69 6e 65 2d 6b | 65 79 20 63 74 6c 2d 78 |define-k|ey ctl-x|
|00003b50| 2d 6d 61 70 20 22 01 22 | 20 28 71 75 6f 74 65 20 |-map "."| (quote |
|00003b60| 61 64 64 2d 6d 6f 64 65 | 2d 61 62 62 72 65 76 29 |add-mode|-abbrev)|
|00003b70| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 63 |)..(defi|ne-key c|
|00003b80| 74 6c 2d 78 2d 6d 61 70 | 20 22 2b 22 20 28 71 75 |tl-x-map| "+" (qu|
|00003b90| 6f 74 65 20 61 64 64 2d | 67 6c 6f 62 61 6c 2d 61 |ote add-|global-a|
|00003ba0| 62 62 72 65 76 29 29 0a | 0a 28 64 65 66 69 6e 65 |bbrev)).|.(define|
|00003bb0| 2d 6b 65 79 20 63 74 6c | 2d 78 2d 6d 61 70 20 22 |-key ctl|-x-map "|
|00003bc0| 08 22 20 28 71 75 6f 74 | 65 20 69 6e 76 65 72 73 |." (quot|e invers|
|00003bd0| 65 2d 61 64 64 2d 6d 6f | 64 65 2d 61 62 62 72 65 |e-add-mo|de-abbre|
|00003be0| 76 29 29 0a 0a 28 64 65 | 66 69 6e 65 2d 6b 65 79 |v))..(de|fine-key|
|00003bf0| 20 63 74 6c 2d 78 2d 6d | 61 70 20 22 2d 22 20 28 | ctl-x-m|ap "-" (|
|00003c00| 71 75 6f 74 65 20 69 6e | 76 65 72 73 65 2d 61 64 |quote in|verse-ad|
|00003c10| 64 2d 67 6c 6f 62 61 6c | 2d 61 62 62 72 65 76 29 |d-global|-abbrev)|
|00003c20| 29 0a 0a 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 65 |)..(defi|ne-key e|
|00003c30| 73 63 2d 6d 61 70 20 22 | 27 22 20 28 71 75 6f 74 |sc-map "|'" (quot|
|00003c40| 65 20 61 62 62 72 65 76 | 2d 70 72 65 66 69 78 2d |e abbrev|-prefix-|
|00003c50| 6d 61 72 6b 29 29 0a 0a | 28 64 65 66 69 6e 65 2d |mark))..|(define-|
|00003c60| 6b 65 79 20 63 74 6c 2d | 78 2d 6d 61 70 20 22 27 |key ctl-|x-map "'|
|00003c70| 22 20 28 71 75 6f 74 65 | 20 65 78 70 61 6e 64 2d |" (quote| expand-|
|00003c80| 61 62 62 72 65 76 29 29 | 0a 0a 28 64 65 66 75 6e |abbrev))|..(defun|
|00003c90| 20 6f 70 65 6e 2d 6c 69 | 6e 65 20 28 61 72 67 29 | open-li|ne (arg)|
|00003ca0| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 | (inter|active "|
|00003cb0| 2a 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |*p") (by|te-code |
|00003cc0| 22 c2 88 6e 85 08 00 6f | 3f 18 08 85 10 00 c3 c4 |"..n...o|?.......|
|00003cd0| 21 88 09 c5 56 85 26 00 | c6 63 88 60 53 62 88 09 |!...V.&.|.c.`Sb..|
|00003ce0| 53 89 11 88 82 11 00 88 | 08 85 2e 00 c3 c7 21 29 |S.......|......!)|
|00003cf0| 87 22 20 5b 66 6c 61 67 | 20 61 72 67 20 6e 69 6c |." [flag| arg nil|
|00003d00| 20 66 6f 72 77 61 72 64 | 2d 63 68 61 72 20 2d 31 | forward|-char -1|
|00003d10| 20 30 20 31 30 20 31 5d | 20 34 29 29 0a 0a 28 64 | 0 10 1]| 4))..(d|
|00003d20| 65 66 75 6e 20 73 70 6c | 69 74 2d 6c 69 6e 65 20 |efun spl|it-line |
|00003d30| 6e 69 6c 20 20 28 69 6e | 74 65 72 61 63 74 69 76 |nil (in|teractiv|
|00003d40| 65 20 22 2a 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "*") (|byte-cod|
|00003d50| 65 20 22 c2 88 c3 c4 21 | 88 69 60 19 18 c5 63 88 |e "....!|.i`...c.|
|00003d60| c6 08 c7 5c 22 88 09 62 | 2a 87 22 20 5b 63 6f 6c |...\"..b|*." [col|
|00003d70| 20 70 6f 73 20 6e 69 6c | 20 73 6b 69 70 2d 63 68 | pos nil| skip-ch|
|00003d80| 61 72 73 2d 66 6f 72 77 | 61 72 64 20 22 20 09 22 |ars-forw|ard " ."|
|00003d90| 20 31 30 20 69 6e 64 65 | 6e 74 2d 74 6f 20 30 5d | 10 inde|nt-to 0]|
|00003da0| 20 34 29 29 0a 0a 28 64 | 65 66 75 6e 20 71 75 6f | 4))..(d|efun quo|
|00003db0| 74 65 64 2d 69 6e 73 65 | 72 74 20 28 61 72 67 29 |ted-inse|rt (arg)|
|00003dc0| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 | (inter|active "|
|00003dd0| 2a 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |*p") (by|te-code |
|00003de0| 22 c2 88 c3 20 18 09 c4 | 56 85 16 00 08 63 88 09 |"... ...|V....c..|
|00003df0| 53 89 11 88 82 05 00 29 | 87 22 20 5b 63 68 61 72 |S......)|." [char|
|00003e00| 20 61 72 67 20 6e 69 6c | 20 72 65 61 64 2d 71 75 | arg nil| read-qu|
|00003e10| 6f 74 65 64 2d 63 68 61 | 72 20 30 5d 20 34 29 29 |oted-cha|r 0] 4))|
|00003e20| 0a 0a 28 64 65 66 75 6e | 20 64 65 6c 65 74 65 2d |..(defun| delete-|
|00003e30| 69 6e 64 65 6e 74 61 74 | 69 6f 6e 20 28 26 6f 70 |indentat|ion (&op|
|00003e40| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 20 28 69 6e |tional a|rg) (in|
|00003e50| 74 65 72 61 63 74 69 76 | 65 20 22 2a 50 22 29 20 |teractiv|e "*P") |
|00003e60| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 c2 20 |(byte-co|de "... |
|00003e70| 88 08 85 0c 00 c3 c4 21 | 88 68 c5 3d 85 1b 00 c6 |.......!|.h.=....|
|00003e80| 60 60 53 5c 22 88 c7 20 | 87 22 20 5b 61 72 67 20 |``S\".. |." [arg |
|00003e90| 6e 69 6c 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |nil begi|nning-of|
|00003ea0| 2d 6c 69 6e 65 20 66 6f | 72 77 61 72 64 2d 6c 69 |-line fo|rward-li|
|00003eb0| 6e 65 20 31 20 31 30 20 | 64 65 6c 65 74 65 2d 72 |ne 1 10 |delete-r|
|00003ec0| 65 67 69 6f 6e 20 66 69 | 78 75 70 2d 77 68 69 74 |egion fi|xup-whit|
|00003ed0| 65 73 70 61 63 65 5d 20 | 35 29 29 0a 0a 28 64 65 |espace] |5))..(de|
|00003ee0| 66 75 6e 20 66 69 78 75 | 70 2d 77 68 69 74 65 73 |fun fixu|p-whites|
|00003ef0| 70 61 63 65 20 6e 69 6c | 20 20 28 69 6e 74 65 72 |pace nil| (inter|
|00003f00| 61 63 74 69 76 65 20 22 | 2a 22 29 20 28 62 79 74 |active "|*") (byt|
|00003f10| 65 2d 63 6f 64 65 20 22 | c0 88 8a c1 20 88 c2 c3 |e-code "|.... ...|
|00003f20| 21 86 15 00 8a c4 c5 21 | 88 c2 c6 21 29 83 1c 00 |!......!|...!)...|
|00003f30| c0 82 1e 00 c7 63 29 87 | 22 20 5b 6e 69 6c 20 64 |.....c).|" [nil d|
|00003f40| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00003f50| 2d 73 70 61 63 65 20 6c | 6f 6f 6b 69 6e 67 2d 61 |-space l|ooking-a|
|00003f60| 74 20 22 5e 5c 5c 7c 5c | 5c 73 29 22 20 66 6f 72 |t "^\\|\|\s)" for|
|00003f70| 77 61 72 64 2d 63 68 61 | 72 20 2d 31 20 22 24 5c |ward-cha|r -1 "$\|
|00003f80| 5c 7c 5c 5c 73 28 5c 5c | 7c 5c 5c 73 27 22 20 33 |\|\\s(\\||\\s'" 3|
|00003f90| 32 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 64 |2] 5))..|(defun d|
|00003fa0| 65 6c 65 74 65 2d 68 6f | 72 69 7a 6f 6e 74 61 6c |elete-ho|rizontal|
|00003fb0| 2d 73 70 61 63 65 20 6e | 69 6c 20 20 28 69 6e 74 |-space n|il (int|
|00003fc0| 65 72 61 63 74 69 76 65 | 20 22 2a 22 29 20 28 62 |eractive| "*") (b|
|00003fd0| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 21 88 |yte-code| "....!.|
|00003fe0| c3 60 c4 c2 21 88 60 5c | 22 87 22 20 5b 6e 69 6c |.`..!.`\|"." [nil|
|00003ff0| 20 73 6b 69 70 2d 63 68 | 61 72 73 2d 62 61 63 6b | skip-ch|ars-back|
|00004000| 77 61 72 64 20 22 20 09 | 22 20 64 65 6c 65 74 65 |ward " .|" delete|
|00004010| 2d 72 65 67 69 6f 6e 20 | 73 6b 69 70 2d 63 68 61 |-region |skip-cha|
|00004020| 72 73 2d 66 6f 72 77 61 | 72 64 5d 20 35 29 29 0a |rs-forwa|rd] 5)).|
|00004030| 0a 28 64 65 66 75 6e 20 | 6a 75 73 74 2d 6f 6e 65 |.(defun |just-one|
|00004040| 2d 73 70 61 63 65 20 6e | 69 6c 20 20 28 69 6e 74 |-space n|il (int|
|00004050| 65 72 61 63 74 69 76 65 | 20 22 2a 22 29 20 28 62 |eractive| "*") (b|
|00004060| 79 74 65 2d 63 6f 64 65 | 20 22 c0 88 c1 c2 21 88 |yte-code| "....!.|
|00004070| 67 c3 55 83 12 00 c4 c5 | 21 82 14 00 c3 63 88 c6 |g.U.....|!....c..|
|00004080| 60 c7 c2 21 88 60 5c 22 | 87 22 20 5b 6e 69 6c 20 |`..!.`\"|." [nil |
|00004090| 73 6b 69 70 2d 63 68 61 | 72 73 2d 62 61 63 6b 77 |skip-cha|rs-backw|
|000040a0| 61 72 64 20 22 20 09 22 | 20 33 32 20 66 6f 72 77 |ard " ."| 32 forw|
|000040b0| 61 72 64 2d 63 68 61 72 | 20 31 20 64 65 6c 65 74 |ard-char| 1 delet|
|000040c0| 65 2d 72 65 67 69 6f 6e | 20 73 6b 69 70 2d 63 68 |e-region| skip-ch|
|000040d0| 61 72 73 2d 66 6f 72 77 | 61 72 64 5d 20 36 29 29 |ars-forw|ard] 6))|
|000040e0| 0a 0a 28 64 65 66 75 6e | 20 64 65 6c 65 74 65 2d |..(defun| delete-|
|000040f0| 62 6c 61 6e 6b 2d 6c 69 | 6e 65 73 20 6e 69 6c 20 |blank-li|nes nil |
|00004100| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 2a | (intera|ctive "*|
|00004110| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |") (byte|-code ".|
|00004120| 88 c2 c2 19 18 8a c4 20 | 88 c5 c6 21 89 10 88 08 |....... |...!....|
|00004130| 85 27 00 c5 c7 21 3f 85 | 27 00 6f 86 27 00 c8 c9 |.'...!?.|'.o.'...|
|00004140| 21 88 c5 c6 21 3f 89 11 | 29 88 08 85 4e 00 c4 20 |!...!?..|)...N.. |
|00004150| 88 09 85 39 00 c8 ca 21 | 88 cb 60 cc cd c2 c3 23 |...9...!|..`....#|
|00004160| 83 4c 00 c8 ca 21 88 60 | 82 4d 00 65 5c 22 88 08 |.L...!.`|.M.e\"..|
|00004170| 85 54 00 09 3f 85 74 00 | 8a ce 20 88 c8 ca 21 88 |.T..?.t.|.. ...!.|
|00004180| cb 60 cf cd c2 c3 23 83 | 71 00 c4 20 88 60 82 72 |.`....#.|q.. .`.r|
|00004190| 00 64 5c 22 29 2a 87 22 | 20 5b 74 68 69 73 62 6c |.d\")*."| [thisbl|
|000041a0| 61 6e 6b 20 73 69 6e 67 | 6c 65 62 6c 61 6e 6b 20 |ank sing|leblank |
|000041b0| 6e 69 6c 20 74 20 62 65 | 67 69 6e 6e 69 6e 67 2d |nil t be|ginning-|
|000041c0| 6f 66 2d 6c 69 6e 65 20 | 6c 6f 6f 6b 69 6e 67 2d |of-line |looking-|
|000041d0| 61 74 20 22 5b 20 09 5d | 2a 24 22 20 22 5b 20 09 |at "[ .]|*$" "[ .|
|000041e0| 5d 2a 0a 5b 20 09 5d 2a | 24 22 20 66 6f 72 77 61 |]*.[ .]*|$" forwa|
|000041f0| 72 64 2d 6c 69 6e 65 20 | 2d 31 20 31 20 64 65 6c |rd-line |-1 1 del|
|00004200| 65 74 65 2d 72 65 67 69 | 6f 6e 20 72 65 2d 73 65 |ete-regi|on re-se|
|00004210| 61 72 63 68 2d 62 61 63 | 6b 77 61 72 64 20 22 5b |arch-bac|kward "[|
|00004220| 5e 20 09 0a 5d 22 20 65 | 6e 64 2d 6f 66 2d 6c 69 |^ ..]" e|nd-of-li|
|00004230| 6e 65 20 72 65 2d 73 65 | 61 72 63 68 2d 66 6f 72 |ne re-se|arch-for|
|00004240| 77 61 72 64 5d 20 31 38 | 29 29 0a 0a 28 64 65 66 |ward] 18|))..(def|
|00004250| 75 6e 20 62 61 63 6b 2d | 74 6f 2d 69 6e 64 65 6e |un back-|to-inden|
|00004260| 74 61 74 69 6f 6e 20 6e | 69 6c 20 20 28 69 6e 74 |tation n|il (int|
|00004270| 65 72 61 63 74 69 76 65 | 29 20 28 62 79 74 65 2d |eractive|) (byte-|
|00004280| 63 6f 64 65 20 22 c0 88 | c1 c2 21 88 c3 c4 21 87 |code "..|..!...!.|
|00004290| 22 20 5b 6e 69 6c 20 62 | 65 67 69 6e 6e 69 6e 67 |" [nil b|eginning|
|000042a0| 2d 6f 66 2d 6c 69 6e 65 | 20 31 20 73 6b 69 70 2d |-of-line| 1 skip-|
|000042b0| 63 68 61 72 73 2d 66 6f | 72 77 61 72 64 20 22 20 |chars-fo|rward " |
|000042c0| 09 22 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |."] 3)).|.(defun |
|000042d0| 6e 65 77 6c 69 6e 65 2d | 61 6e 64 2d 69 6e 64 65 |newline-|and-inde|
|000042e0| 6e 74 20 6e 69 6c 20 20 | 28 69 6e 74 65 72 61 63 |nt nil |(interac|
|000042f0| 74 69 76 65 20 22 2a 22 | 29 20 28 62 79 74 65 2d |tive "*"|) (byte-|
|00004300| 63 6f 64 65 20 22 c0 88 | c1 60 c2 c3 21 88 60 5c |code "..|.`..!.`\|
|00004310| 22 88 c4 63 88 c5 20 87 | 22 20 5b 6e 69 6c 20 64 |"..c.. .|" [nil d|
|00004320| 65 6c 65 74 65 2d 72 65 | 67 69 6f 6e 20 73 6b 69 |elete-re|gion ski|
|00004330| 70 2d 63 68 61 72 73 2d | 62 61 63 6b 77 61 72 64 |p-chars-|backward|
|00004340| 20 22 20 09 22 20 31 30 | 20 69 6e 64 65 6e 74 2d | " ." 10| indent-|
|00004350| 61 63 63 6f 72 64 69 6e | 67 2d 74 6f 2d 6d 6f 64 |accordin|g-to-mod|
|00004360| 65 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 72 |e] 4))..|(defun r|
|00004370| 65 69 6e 64 65 6e 74 2d | 74 68 65 6e 2d 6e 65 77 |eindent-|then-new|
|00004380| 6c 69 6e 65 2d 61 6e 64 | 2d 69 6e 64 65 6e 74 20 |line-and|-indent |
|00004390| 6e 69 6c 20 20 28 69 6e | 74 65 72 61 63 74 69 76 |nil (in|teractiv|
|000043a0| 65 20 22 2a 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "*") (|byte-cod|
|000043b0| 65 20 22 c0 88 8a c1 60 | c2 c3 21 88 60 5c 22 88 |e "....`|..!.`\".|
|000043c0| c4 20 29 88 c5 63 88 c4 | 20 87 22 20 5b 6e 69 6c |. )..c..| ." [nil|
|000043d0| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 73 | delete-|region s|
|000043e0| 6b 69 70 2d 63 68 61 72 | 73 2d 62 61 63 6b 77 61 |kip-char|s-backwa|
|000043f0| 72 64 20 22 20 09 22 20 | 69 6e 64 65 6e 74 2d 61 |rd " ." |indent-a|
|00004400| 63 63 6f 72 64 69 6e 67 | 2d 74 6f 2d 6d 6f 64 65 |ccording|-to-mode|
|00004410| 20 31 30 5d 20 35 29 29 | 0a 0a 28 64 65 66 75 6e | 10] 5))|..(defun|
|00004420| 20 6b 69 6c 6c 2d 66 6f | 72 77 61 72 64 2d 63 68 | kill-fo|rward-ch|
|00004430| 61 72 73 20 28 61 72 67 | 29 20 28 62 79 74 65 2d |ars (arg|) (byte-|
|00004440| 63 6f 64 65 20 22 08 3c | 85 09 00 08 40 89 10 88 |code ".<|....@...|
|00004450| 08 c1 3d 85 13 00 c2 89 | 10 88 c3 60 60 08 5c 5c |..=.....|...``.\\|
|00004460| 5c 22 87 22 20 5b 61 72 | 67 20 2d 20 2d 31 20 6b |\"." [ar|g - -1 k|
|00004470| 69 6c 6c 2d 72 65 67 69 | 6f 6e 5d 20 34 29 29 0a |ill-regi|on] 4)).|
|00004480| 0a 28 64 65 66 75 6e 20 | 6b 69 6c 6c 2d 62 61 63 |.(defun |kill-bac|
|00004490| 6b 77 61 72 64 2d 63 68 | 61 72 73 20 28 61 72 67 |kward-ch|ars (arg|
|000044a0| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 08 3c |) (byte-|code ".<|
|000044b0| 85 09 00 08 40 89 10 88 | 08 c1 3d 85 13 00 c2 89 |....@...|..=.....|
|000044c0| 10 88 c3 60 60 08 5a 5c | 22 87 22 20 5b 61 72 67 |...``.Z\|"." [arg|
|000044d0| 20 2d 20 2d 31 20 6b 69 | 6c 6c 2d 72 65 67 69 6f | - -1 ki|ll-regio|
|000044e0| 6e 5d 20 34 29 29 0a 0a | 28 64 65 66 75 6e 20 62 |n] 4))..|(defun b|
|000044f0| 61 63 6b 77 61 72 64 2d | 64 65 6c 65 74 65 2d 63 |ackward-|delete-c|
|00004500| 68 61 72 2d 75 6e 74 61 | 62 69 66 79 20 28 61 72 |har-unta|bify (ar|
|00004510| 67 20 26 6f 70 74 69 6f | 6e 61 6c 20 6b 69 6c 6c |g &optio|nal kill|
|00004520| 70 29 20 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |p) (int|eractive|
|00004530| 20 22 2a 70 0a 50 22 29 | 20 28 62 79 74 65 2d 63 | "*p.P")| (byte-c|
|00004540| 6f 64 65 20 22 c4 88 09 | 18 8a 08 c5 56 85 0d 00 |ode "...|....V...|
|00004550| 6f 3f 85 38 00 68 c6 55 | 85 2b 00 69 1a c7 c8 21 |o?.8.h.U|.+.i...!|
|00004560| 88 0a 69 5a 89 12 88 c9 | ca 0a 5c 22 88 cb cc 21 |..iZ....|..\"...!|
|00004570| 29 88 c7 c8 21 88 08 53 | 89 10 88 82 05 00 29 29 |)...!..S|......))|
|00004580| 88 cd 09 0b 5c 22 87 22 | 20 5b 63 6f 75 6e 74 20 |....\"."| [count |
|00004590| 61 72 67 20 63 6f 6c 20 | 6b 69 6c 6c 70 20 6e 69 |arg col |killp ni|
|000045a0| 6c 20 30 20 39 20 66 6f | 72 77 61 72 64 2d 63 68 |l 0 9 fo|rward-ch|
|000045b0| 61 72 20 2d 31 20 69 6e | 73 65 72 74 2d 63 68 61 |ar -1 in|sert-cha|
|000045c0| 72 20 33 32 20 64 65 6c | 65 74 65 2d 63 68 61 72 |r 32 del|ete-char|
|000045d0| 20 31 20 64 65 6c 65 74 | 65 2d 62 61 63 6b 77 61 | 1 delet|e-backwa|
|000045e0| 72 64 2d 63 68 61 72 5d | 20 37 29 29 0a 0a 28 64 |rd-char]| 7))..(d|
|000045f0| 65 66 75 6e 20 7a 61 70 | 2d 74 6f 2d 63 68 61 72 |efun zap|-to-char|
|00004600| 20 28 61 72 67 20 63 68 | 61 72 29 20 20 28 69 6e | (arg ch|ar) (in|
|00004610| 74 65 72 61 63 74 69 76 | 65 20 22 2a 70 0a 63 5a |teractiv|e "*p.cZ|
|00004620| 61 70 20 74 6f 20 63 68 | 61 72 3a 20 22 29 20 28 |ap to ch|ar: ") (|
|00004630| 62 79 74 65 2d 63 6f 64 | 65 20 22 c1 88 c4 60 c5 |byte-cod|e "...`.|
|00004640| c6 08 21 c1 c2 0b 24 83 | 5c 22 00 0b c7 56 83 1a |..!...$.|\"...V..|
|00004650| 00 60 53 82 1c 00 60 54 | 62 88 60 82 2d 00 0b c7 |.`S...`T|b.`.-...|
|00004660| 56 83 2c 00 64 82 2d 00 | 65 5c 22 87 22 20 5b 63 |V.,.d.-.|e\"." [c|
|00004670| 68 61 72 20 6e 69 6c 20 | 74 20 61 72 67 20 6b 69 |har nil |t arg ki|
|00004680| 6c 6c 2d 72 65 67 69 6f | 6e 20 73 65 61 72 63 68 |ll-regio|n search|
|00004690| 2d 66 6f 72 77 61 72 64 | 20 63 68 61 72 2d 74 6f |-forward| char-to|
|000046a0| 2d 73 74 72 69 6e 67 20 | 30 5d 20 38 29 29 0a 0a |-string |0] 8))..|
|000046b0| 28 64 65 66 75 6e 20 62 | 65 67 69 6e 6e 69 6e 67 |(defun b|eginning|
|000046c0| 2d 6f 66 2d 62 75 66 66 | 65 72 20 28 26 6f 70 74 |-of-buff|er (&opt|
|000046d0| 69 6f 6e 61 6c 20 61 72 | 67 29 20 20 28 69 6e 74 |ional ar|g) (int|
|000046e0| 65 72 61 63 74 69 76 65 | 20 22 50 22 29 20 28 62 |eractive| "P") (b|
|000046f0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 20 88 08 |yte-code| "... ..|
|00004700| 83 2c 00 c3 20 c4 56 83 | 1d 00 c5 c6 08 21 c7 c3 |.,.. .V.|.....!..|
|00004710| 20 c8 5c 22 5c 22 82 29 | 00 c7 c8 c5 c3 20 c6 08 | .\"\".)|..... ..|
|00004720| 21 5c 22 5c 5c c8 5c 22 | 82 2d 00 65 62 88 08 85 |!\"\\.\"|.-.eb...|
|00004730| 36 00 c9 ca 21 87 22 20 | 5b 61 72 67 20 6e 69 6c |6...!." |[arg nil|
|00004740| 20 70 75 73 68 2d 6d 61 | 72 6b 20 62 75 66 66 65 | push-ma|rk buffe|
|00004750| 72 2d 73 69 7a 65 20 31 | 30 30 30 30 20 2a 20 70 |r-size 1|0000 * p|
|00004760| 72 65 66 69 78 2d 6e 75 | 6d 65 72 69 63 2d 76 61 |refix-nu|meric-va|
|00004770| 6c 75 65 20 2f 20 31 30 | 20 66 6f 72 77 61 72 64 |lue / 10| forward|
|00004780| 2d 6c 69 6e 65 20 31 5d | 20 31 33 29 29 0a 0a 28 |-line 1]| 13))..(|
|00004790| 64 65 66 75 6e 20 65 6e | 64 2d 6f 66 2d 62 75 66 |defun en|d-of-buf|
|000047a0| 66 65 72 20 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |fer (&op|tional a|
|000047b0| 72 67 29 20 20 28 69 6e | 74 65 72 61 63 74 69 76 |rg) (in|teractiv|
|000047c0| 65 20 22 50 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |e "P") (|byte-cod|
|000047d0| 65 20 22 c1 88 c2 20 88 | 08 83 2e 00 c3 20 54 c3 |e "... .|..... T.|
|000047e0| 20 c4 56 83 20 00 c5 c6 | 08 21 c7 c3 20 c8 5c 22 | .V. ...|.!.. .\"|
|000047f0| 5c 22 82 2a 00 c7 c5 c3 | 20 c6 08 21 5c 22 c8 5c |\".*....| ..!\".\|
|00004800| 22 5a 82 2f 00 64 62 88 | 08 85 38 00 c9 ca 21 87 |"Z./.db.|..8...!.|
|00004810| 22 20 5b 61 72 67 20 6e | 69 6c 20 70 75 73 68 2d |" [arg n|il push-|
|00004820| 6d 61 72 6b 20 62 75 66 | 66 65 72 2d 73 69 7a 65 |mark buf|fer-size|
|00004830| 20 31 30 30 30 30 20 2a | 20 70 72 65 66 69 78 2d | 10000 *| prefix-|
|00004840| 6e 75 6d 65 72 69 63 2d | 76 61 6c 75 65 20 2f 20 |numeric-|value / |
|00004850| 31 30 20 66 6f 72 77 61 | 72 64 2d 6c 69 6e 65 20 |10 forwa|rd-line |
|00004860| 31 5d 20 31 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |1] 14)).|.(defun |
|00004870| 6d 61 72 6b 2d 77 68 6f | 6c 65 2d 62 75 66 66 65 |mark-who|le-buffe|
|00004880| 72 20 6e 69 6c 20 20 28 | 69 6e 74 65 72 61 63 74 |r nil (|interact|
|00004890| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|000048a0| 22 c0 88 c1 60 21 88 c1 | 64 21 88 65 62 87 22 20 |"...`!..|d!.eb." |
|000048b0| 5b 6e 69 6c 20 70 75 73 | 68 2d 6d 61 72 6b 5d 20 |[nil pus|h-mark] |
|000048c0| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 63 6f 75 6e |3))..(de|fun coun|
|000048d0| 74 2d 6c 69 6e 65 73 2d | 72 65 67 69 6f 6e 20 28 |t-lines-|region (|
|000048e0| 73 74 61 72 74 20 65 6e | 64 29 20 20 28 69 6e 74 |start en|d) (int|
|000048f0| 65 72 61 63 74 69 76 65 | 20 22 72 22 29 20 28 62 |eractive| "r") (b|
|00004900| 79 74 65 2d 63 6f 64 65 | 20 22 c2 88 c3 c4 c5 08 |yte-code| "......|
|00004910| 09 5c 22 5c 22 87 22 20 | 5b 73 74 61 72 74 20 65 |.\"\"." |[start e|
|00004920| 6e 64 20 6e 69 6c 20 6d | 65 73 73 61 67 65 20 22 |nd nil m|essage "|
|00004930| 52 65 67 69 6f 6e 20 68 | 61 73 20 25 64 20 6c 69 |Region h|as %d li|
|00004940| 6e 65 73 22 20 63 6f 75 | 6e 74 2d 6c 69 6e 65 73 |nes" cou|nt-lines|
|00004950| 5d 20 35 29 29 0a 0a 28 | 64 65 66 75 6e 20 77 68 |] 5))..(|defun wh|
|00004960| 61 74 2d 6c 69 6e 65 20 | 6e 69 6c 20 20 28 69 6e |at-line |nil (in|
|00004970| 74 65 72 61 63 74 69 76 | 65 29 20 28 62 79 74 65 |teractiv|e) (byte|
|00004980| 2d 63 6f 64 65 20 22 c0 | 88 8c c1 20 88 8a c2 20 |-code ".|... ... |
|00004990| 88 c3 c4 c5 c6 60 5c 22 | 54 5c 22 29 29 87 22 20 |.....`\"|T\"))." |
|000049a0| 5b 6e 69 6c 20 77 69 64 | 65 6e 20 62 65 67 69 6e |[nil wid|en begin|
|000049b0| 6e 69 6e 67 2d 6f 66 2d | 6c 69 6e 65 20 6d 65 73 |ning-of-|line mes|
|000049c0| 73 61 67 65 20 22 4c 69 | 6e 65 20 25 64 22 20 63 |sage "Li|ne %d" c|
|000049d0| 6f 75 6e 74 2d 6c 69 6e | 65 73 20 31 5d 20 37 29 |ount-lin|es 1] 7)|
|000049e0| 29 0a 0a 28 64 65 66 75 | 6e 20 63 6f 75 6e 74 2d |)..(defu|n count-|
|000049f0| 6c 69 6e 65 73 20 28 73 | 74 61 72 74 20 65 6e 64 |lines (s|tart end|
|00004a00| 29 20 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 8a |) (byte|-code ".|
|00004a10| 8c c2 08 09 5c 22 88 65 | 62 88 c3 20 c4 c3 20 21 |....\".e|b.. .. !|
|00004a20| 5a 29 29 87 22 20 5b 73 | 74 61 72 74 20 65 6e 64 |Z))." [s|tart end|
|00004a30| 20 6e 61 72 72 6f 77 2d | 74 6f 2d 72 65 67 69 6f | narrow-|to-regio|
|00004a40| 6e 20 62 75 66 66 65 72 | 2d 73 69 7a 65 20 66 6f |n buffer|-size fo|
|00004a50| 72 77 61 72 64 2d 6c 69 | 6e 65 5d 20 36 29 29 0a |rward-li|ne] 6)).|
|00004a60| 0a 28 64 65 66 75 6e 20 | 77 68 61 74 2d 63 75 72 |.(defun |what-cur|
|00004a70| 73 6f 72 2d 70 6f 73 69 | 74 69 6f 6e 20 6e 69 6c |sor-posi|tion nil|
|00004a80| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 20 | (inter|active) |
|00004a90| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c8 88 67 18 |(byte-co|de "..g.|
|00004aa0| 65 19 64 1a 60 1b c9 20 | 1c 0c ca 56 83 25 00 cb |e.d.`.. |...V.%..|
|00004ab0| cb 0c cc 5c 22 0b 53 5c | 5c cb 0c cd 5c 22 ce 5d |...\".S\|\...\".]|
|00004ac0| 5c 22 82 34 00 cb cb 0c | cf 5c 22 d0 cd 0b 53 5c |\".4....|.\"...S\|
|00004ad0| 22 5c 5c 0c ce 5d 5c 22 | 1d d1 20 d2 55 83 40 00 |"\\..]\"|.. .U.@.|
|00004ae0| d3 82 45 00 d4 d5 d1 20 | 5c 22 1e 06 69 1e 07 0b |..E.... |\"..i...|
|00004af0| 0a 55 83 7d 00 d6 09 ce | 5c 22 86 5c 5c 00 d6 0a |.U.}....|\".\\...|
|00004b00| 0c 54 5c 22 83 6f 00 d7 | d8 0b 0c 0d 09 0a 0e 07 |.T\".o..|........|
|00004b10| 0e 06 26 08 82 7a 00 d7 | d9 0b 0c 0d 0e 07 0e 06 |..&..z..|........|
|00004b20| 26 06 82 af 00 d6 09 ce | 5c 22 86 89 00 d6 0a 0c |&.......|\"......|
|00004b30| 54 5c 22 83 a0 00 d7 da | db 08 21 08 0b 0c 0d 09 |T\".....|..!.....|
|00004b40| 0a 0e 07 0e 06 26 0a 82 | af 00 d7 dc db 08 21 08 |.....&..|......!.|
|00004b50| 0b 0c 0d 0e 07 0e 06 26 | 08 2e 08 87 22 20 5b 63 |.......&|...." [c|
|00004b60| 68 61 72 20 62 65 67 20 | 65 6e 64 20 70 6f 73 20 |har beg |end pos |
|00004b70| 74 6f 74 61 6c 20 70 65 | 72 63 65 6e 74 20 68 73 |total pe|rcent hs|
|00004b80| 63 72 6f 6c 6c 20 63 6f | 6c 20 6e 69 6c 20 62 75 |croll co|l nil bu|
|00004b90| 66 66 65 72 2d 73 69 7a | 65 20 35 30 30 30 30 20 |ffer-siz|e 50000 |
|00004ba0| 2f 20 32 30 30 20 31 30 | 30 20 31 20 32 20 2a 20 |/ 200 10|0 1 2 * |
|00004bb0| 77 69 6e 64 6f 77 2d 68 | 73 63 72 6f 6c 6c 20 30 |window-h|scroll 0|
|00004bc0| 20 22 22 20 66 6f 72 6d | 61 74 20 22 20 48 73 63 | "" form|at " Hsc|
|00004bd0| 72 6f 6c 6c 3d 25 64 22 | 20 2f 3d 20 6d 65 73 73 |roll=%d"| /= mess|
|00004be0| 61 67 65 20 22 70 6f 69 | 6e 74 3d 25 64 20 6f 66 |age "poi|nt=%d of|
|00004bf0| 20 25 64 28 25 64 25 25 | 29 20 3c 25 64 20 2d 20 | %d(%d%%|) <%d - |
|00004c00| 25 64 3e 20 20 63 6f 6c | 75 6d 6e 20 25 64 20 25 |%d> col|umn %d %|
|00004c10| 73 22 20 22 70 6f 69 6e | 74 3d 25 64 20 6f 66 20 |s" "poin|t=%d of |
|00004c20| 25 64 28 25 64 25 25 29 | 20 20 63 6f 6c 75 6d 6e |%d(%d%%)| column|
|00004c30| 20 25 64 20 25 73 22 20 | 22 43 68 61 72 3a 20 25 | %d %s" |"Char: %|
|00004c40| 73 20 28 30 25 6f 29 20 | 20 70 6f 69 6e 74 3d 25 |s (0%o) | point=%|
|00004c50| 64 20 6f 66 20 25 64 28 | 25 64 25 25 29 20 3c 25 |d of %d(|%d%%) <%|
|00004c60| 64 20 2d 20 25 64 3e 20 | 20 63 6f 6c 75 6d 6e 20 |d - %d> | column |
|00004c70| 25 64 20 25 73 22 20 73 | 69 6e 67 6c 65 2d 6b 65 |%d %s" s|ingle-ke|
|00004c80| 79 2d 64 65 73 63 72 69 | 70 74 69 6f 6e 20 22 43 |y-descri|ption "C|
|00004c90| 68 61 72 3a 20 25 73 20 | 28 30 25 6f 29 20 20 70 |har: %s |(0%o) p|
|00004ca0| 6f 69 6e 74 3d 25 64 20 | 6f 66 20 25 64 28 25 64 |oint=%d |of %d(%d|
|00004cb0| 25 25 29 20 20 63 6f 6c | 75 6d 6e 20 25 64 20 25 |%%) col|umn %d %|
|00004cc0| 73 22 5d 20 32 38 29 29 | 0a 0a 28 64 65 66 75 6e |s"] 28))|..(defun|
|00004cd0| 20 66 75 6e 64 61 6d 65 | 6e 74 61 6c 2d 6d 6f 64 | fundame|ntal-mod|
|00004ce0| 65 20 6e 69 6c 20 20 28 | 69 6e 74 65 72 61 63 74 |e nil (|interact|
|00004cf0| 69 76 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ive) (by|te-code |
|00004d00| 22 c0 88 c1 20 87 22 20 | 5b 6e 69 6c 20 6b 69 6c |"... ." |[nil kil|
|00004d10| 6c 2d 61 6c 6c 2d 6c 6f | 63 61 6c 2d 76 61 72 69 |l-all-lo|cal-vari|
|00004d20| 61 62 6c 65 73 5d 20 32 | 29 29 0a 0a 28 70 75 74 |ables] 2|))..(put|
|00004d30| 20 28 71 75 6f 74 65 20 | 65 76 61 6c 2d 65 78 70 | (quote |eval-exp|
|00004d40| 72 65 73 73 69 6f 6e 29 | 20 28 71 75 6f 74 65 20 |ression)| (quote |
|00004d50| 64 69 73 61 62 6c 65 64 | 29 20 74 29 0a 0a 28 64 |disabled|) t)..(d|
|00004d60| 65 66 75 6e 20 65 76 61 | 6c 2d 65 78 70 72 65 73 |efun eva|l-expres|
|00004d70| 73 69 6f 6e 20 28 65 78 | 70 72 65 73 73 69 6f 6e |sion (ex|pression|
|00004d80| 29 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |) (inte|ractive |
|00004d90| 22 78 45 76 61 6c 3a 20 | 22 29 20 28 62 79 74 65 |"xEval: |") (byte|
|00004da0| 2d 63 6f 64 65 20 22 c3 | 88 c4 09 21 08 42 89 10 |-code ".|...!.B..|
|00004db0| 88 c5 08 40 c2 5c 22 87 | 22 20 5b 76 61 6c 75 65 |...@.\".|" [value|
|00004dc0| 73 20 65 78 70 72 65 73 | 73 69 6f 6e 20 74 20 6e |s expres|sion t n|
|00004dd0| 69 6c 20 65 76 61 6c 20 | 70 72 69 6e 31 5d 20 34 |il eval |prin1] 4|
|00004de0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 65 64 69 74 2d |))..(def|un edit-|
|00004df0| 61 6e 64 2d 65 76 61 6c | 2d 63 6f 6d 6d 61 6e 64 |and-eval|-command|
|00004e00| 20 28 70 72 6f 6d 70 74 | 20 63 6f 6d 6d 61 6e 64 | (prompt| command|
|00004e10| 29 20 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c2 |) (byte|-code ".|
|00004e20| c3 08 c4 09 21 5c 22 21 | 87 22 20 5b 70 72 6f 6d |....!\"!|." [prom|
|00004e30| 70 74 20 63 6f 6d 6d 61 | 6e 64 20 65 76 61 6c 20 |pt comma|nd eval |
|00004e40| 72 65 61 64 2d 6d 69 6e | 69 62 75 66 66 65 72 20 |read-min|ibuffer |
|00004e50| 70 72 69 6e 31 2d 74 6f | 2d 73 74 72 69 6e 67 5d |prin1-to|-string]|
|00004e60| 20 35 29 29 0a 0a 28 64 | 65 66 76 61 72 20 72 65 | 5))..(d|efvar re|
|00004e70| 70 65 61 74 2d 63 6f 6d | 70 6c 65 78 2d 63 6f 6d |peat-com|plex-com|
|00004e80| 6d 61 6e 64 2d 6d 61 70 | 20 28 63 6f 70 79 2d 61 |mand-map| (copy-a|
|00004e90| 6c 69 73 74 20 6d 69 6e | 69 62 75 66 66 65 72 2d |list min|ibuffer-|
|00004ea0| 6c 6f 63 61 6c 2d 6d 61 | 70 29 29 0a 0a 28 64 65 |local-ma|p))..(de|
|00004eb0| 66 69 6e 65 2d 6b 65 79 | 20 72 65 70 65 61 74 2d |fine-key| repeat-|
|00004ec0| 63 6f 6d 70 6c 65 78 2d | 63 6f 6d 6d 61 6e 64 2d |complex-|command-|
|00004ed0| 6d 61 70 20 22 1b 70 22 | 20 28 71 75 6f 74 65 20 |map ".p"| (quote |
|00004ee0| 70 72 65 76 69 6f 75 73 | 2d 63 6f 6d 70 6c 65 78 |previous|-complex|
|00004ef0| 2d 63 6f 6d 6d 61 6e 64 | 29 29 0a 0a 28 64 65 66 |-command|))..(def|
|00004f00| 69 6e 65 2d 6b 65 79 20 | 72 65 70 65 61 74 2d 63 |ine-key |repeat-c|
|00004f10| 6f 6d 70 6c 65 78 2d 63 | 6f 6d 6d 61 6e 64 2d 6d |omplex-c|ommand-m|
|00004f20| 61 70 20 22 1b 6e 22 20 | 28 71 75 6f 74 65 20 6e |ap ".n" |(quote n|
|00004f30| 65 78 74 2d 63 6f 6d 70 | 6c 65 78 2d 63 6f 6d 6d |ext-comp|lex-comm|
|00004f40| 61 6e 64 29 29 0a 0a 28 | 64 65 66 75 6e 20 72 65 |and))..(|defun re|
|00004f50| 70 65 61 74 2d 63 6f 6d | 70 6c 65 78 2d 63 6f 6d |peat-com|plex-com|
|00004f60| 6d 61 6e 64 20 28 72 65 | 70 65 61 74 2d 63 6f 6d |mand (re|peat-com|
|00004f70| 70 6c 65 78 2d 63 6f 6d | 6d 61 6e 64 2d 61 72 67 |plex-com|mand-arg|
|00004f80| 29 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |) (inte|ractive |
|00004f90| 22 70 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"p") (by|te-code |
|00004fa0| 22 c6 88 09 53 0a 38 c6 | 1b 18 08 83 2c 00 c7 c8 |"...S.8.|....,...|
|00004fb0| c9 08 21 0c c5 24 89 13 | 88 ca 0b 0a 40 5c 22 86 |..!..$..|....@\".|
|00004fc0| 25 00 0b 0a 42 89 12 88 | cb 0b 21 82 2e 00 cc 20 |%...B...|..!.... |
|00004fd0| 2a 87 22 20 5b 65 6c 74 | 20 72 65 70 65 61 74 2d |*." [elt| repeat-|
|00004fe0| 63 6f 6d 70 6c 65 78 2d | 63 6f 6d 6d 61 6e 64 2d |complex-|command-|
|00004ff0| 61 72 67 20 63 6f 6d 6d | 61 6e 64 2d 68 69 73 74 |arg comm|and-hist|
|00005000| 6f 72 79 20 6e 65 77 63 | 6d 64 20 72 65 70 65 61 |ory newc|md repea|
|00005010| 74 2d 63 6f 6d 70 6c 65 | 78 2d 63 6f 6d 6d 61 6e |t-comple|x-comman|
|00005020| 64 2d 6d 61 70 20 74 20 | 6e 69 6c 20 72 65 61 64 |d-map t |nil read|
|00005030| 2d 66 72 6f 6d 2d 6d 69 | 6e 69 62 75 66 66 65 72 |-from-mi|nibuffer|
|00005040| 20 22 52 65 64 6f 3a 20 | 22 20 70 72 69 6e 31 2d | "Redo: |" prin1-|
|00005050| 74 6f 2d 73 74 72 69 6e | 67 20 65 71 75 61 6c 20 |to-strin|g equal |
|00005060| 65 76 61 6c 20 64 69 6e | 67 5d 20 36 29 29 0a 0a |eval din|g] 6))..|
|00005070| 28 64 65 66 75 6e 20 6e | 65 78 74 2d 63 6f 6d 70 |(defun n|ext-comp|
|00005080| 6c 65 78 2d 63 6f 6d 6d | 61 6e 64 20 28 6e 29 20 |lex-comm|and (n) |
|00005090| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 70 | (intera|ctive "p|
|000050a0| 22 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c4 |") (byte|-code ".|
|000050b0| 88 c5 09 0a 5a 5d 0b 47 | 5e 18 09 08 55 83 21 00 |....Z].G|^...U.!.|
|000050c0| c6 09 c5 55 83 1c 00 c7 | 82 1d 00 c8 21 82 32 00 |...U....|....!.2.|
|000050d0| c9 20 88 08 89 11 88 ca | 09 53 0b 38 21 63 88 65 |. ......|.S.8!c.e|
|000050e0| 62 29 87 22 20 5b 6e 61 | 72 67 20 72 65 70 65 61 |b)." [na|rg repea|
|000050f0| 74 2d 63 6f 6d 70 6c 65 | 78 2d 63 6f 6d 6d 61 6e |t-comple|x-comman|
|00005100| 64 2d 61 72 67 20 6e 20 | 63 6f 6d 6d 61 6e 64 2d |d-arg n |command-|
|00005110| 68 69 73 74 6f 72 79 20 | 6e 69 6c 20 31 20 65 72 |history |nil 1 er|
|00005120| 72 6f 72 20 22 4e 6f 20 | 66 6f 6c 6c 6f 77 69 6e |ror "No |followin|
|00005130| 67 20 69 74 65 6d 20 69 | 6e 20 63 6f 6d 6d 61 6e |g item i|n comman|
|00005140| 64 20 68 69 73 74 6f 72 | 79 22 20 22 4e 6f 20 70 |d histor|y" "No p|
|00005150| 72 65 63 65 65 64 69 6e | 67 20 69 74 65 6d 20 63 |receedin|g item c|
|00005160| 6f 6d 6d 61 6e 64 20 68 | 69 73 74 6f 72 79 22 20 |ommand h|istory" |
|00005170| 65 72 61 73 65 2d 62 75 | 66 66 65 72 20 70 72 69 |erase-bu|ffer pri|
|00005180| 6e 31 2d 74 6f 2d 73 74 | 72 69 6e 67 5d 20 35 29 |n1-to-st|ring] 5)|
|00005190| 29 0a 0a 28 64 65 66 75 | 6e 20 70 72 65 76 69 6f |)..(defu|n previo|
|000051a0| 75 73 2d 63 6f 6d 70 6c | 65 78 2d 63 6f 6d 6d 61 |us-compl|ex-comma|
|000051b0| 6e 64 20 28 6e 29 20 20 | 28 69 6e 74 65 72 61 63 |nd (n) |(interac|
|000051c0| 74 69 76 65 20 22 70 22 | 29 20 28 62 79 74 65 2d |tive "p"|) (byte-|
|000051d0| 63 6f 64 65 20 22 c1 88 | c2 08 5b 21 87 22 20 5b |code "..|..[!." [|
|000051e0| 6e 20 6e 69 6c 20 6e 65 | 78 74 2d 63 6f 6d 70 6c |n nil ne|xt-compl|
|000051f0| 65 78 2d 63 6f 6d 6d 61 | 6e 64 5d 20 32 29 29 0a |ex-comma|nd] 2)).|
|00005200| 0a 28 64 65 66 75 6e 20 | 67 6f 74 6f 2d 6c 69 6e |.(defun |goto-lin|
|00005210| 65 20 28 61 72 67 29 20 | 20 28 69 6e 74 65 72 61 |e (arg) | (intera|
|00005220| 63 74 69 76 65 20 22 4e | 47 6f 74 6f 20 6c 69 6e |ctive "N|Goto lin|
|00005230| 65 3a 20 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |e: ") (b|yte-code|
|00005240| 20 22 c1 88 8c c2 20 88 | c3 62 88 c4 08 53 21 29 | ".... .|.b...S!)|
|00005250| 87 22 20 5b 61 72 67 20 | 6e 69 6c 20 77 69 64 65 |." [arg |nil wide|
|00005260| 6e 20 31 20 66 6f 72 77 | 61 72 64 2d 6c 69 6e 65 |n 1 forw|ard-line|
|00005270| 5d 20 33 29 29 0a 0a 28 | 66 73 65 74 20 28 71 75 |] 3))..(|fset (qu|
|00005280| 6f 74 65 20 61 64 76 65 | 72 74 69 73 65 64 2d 75 |ote adve|rtised-u|
|00005290| 6e 64 6f 29 20 28 71 75 | 6f 74 65 20 75 6e 64 6f |ndo) (qu|ote undo|
|000052a0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 75 6e 64 6f 20 |))..(def|un undo |
|000052b0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|000052c0| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 20 22 2a | (intera|ctive "*|
|000052d0| 70 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |p") (byt|e-code "|
|000052e0| c4 88 c5 20 18 c6 c7 21 | 88 09 c8 3d 86 15 00 c9 |... ...!|...=....|
|000052f0| 20 88 ca cb 21 88 c8 89 | 12 88 ca 0b 86 20 00 cb | ...!...|..... ..|
|00005300| 21 88 08 85 2e 00 c5 20 | 3f 85 2e 00 cc 20 29 87 |!...... |?.... ).|
|00005310| 22 20 5b 6d 6f 64 69 66 | 69 65 64 20 6c 61 73 74 |" [modif|ied last|
|00005320| 2d 63 6f 6d 6d 61 6e 64 | 20 74 68 69 73 2d 63 6f |-command| this-co|
|00005330| 6d 6d 61 6e 64 20 61 72 | 67 20 6e 69 6c 20 62 75 |mmand ar|g nil bu|
|00005340| 66 66 65 72 2d 6d 6f 64 | 69 66 69 65 64 2d 70 20 |ffer-mod|ified-p |
|00005350| 6d 65 73 73 61 67 65 20 | 22 55 6e 64 6f 21 22 20 |message |"Undo!" |
|00005360| 75 6e 64 6f 20 75 6e 64 | 6f 2d 73 74 61 72 74 20 |undo und|o-start |
|00005370| 75 6e 64 6f 2d 6d 6f 72 | 65 20 31 20 64 65 6c 65 |undo-mor|e 1 dele|
|00005380| 74 65 2d 61 75 74 6f 2d | 73 61 76 65 2d 66 69 6c |te-auto-|save-fil|
|00005390| 65 2d 69 66 2d 6e 65 63 | 65 73 73 61 72 79 5d 20 |e-if-nec|essary] |
|000053a0| 38 29 29 0a 0a 28 64 65 | 66 75 6e 20 75 6e 69 76 |8))..(de|fun univ|
|000053b0| 65 72 73 61 6c 2d 61 72 | 67 75 6d 65 6e 74 20 6e |ersal-ar|gument n|
|000053c0| 69 6c 20 20 28 69 6e 74 | 65 72 61 63 74 69 76 65 |il (int|eractive|
|000053d0| 20 6e 69 6c 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | nil) (b|yte-code|
|000053e0| 20 22 c0 88 c5 0b c0 1c | 1a 19 72 89 14 88 0c 0a | "......|..r.....|
|000053f0| 55 85 20 00 c6 c5 09 5c | 22 89 11 88 72 89 14 88 |U. ....\|"...r...|
|00005400| 82 0c 00 88 c7 0c 09 c0 | 23 2b 87 22 20 5b 6e 69 |........|#+." [ni|
|00005410| 6c 20 63 2d 75 20 61 72 | 67 73 74 61 72 74 63 68 |l c-u ar|gstartch|
|00005420| 61 72 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |ar last-|command-|
|00005430| 63 68 61 72 20 63 68 61 | 72 20 34 20 2a 20 70 72 |char cha|r 4 * pr|
|00005440| 65 66 69 78 2d 61 72 67 | 2d 69 6e 74 65 72 6e 61 |efix-arg|-interna|
|00005450| 6c 5d 20 35 29 29 0a 0a | 28 64 65 66 75 6e 20 70 |l] 5))..|(defun p|
|00005460| 72 65 66 69 78 2d 61 72 | 67 2d 69 6e 74 65 72 6e |refix-ar|g-intern|
|00005470| 61 6c 20 28 63 68 61 72 | 20 63 2d 75 20 76 61 6c |al (char| c-u val|
|00005480| 75 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ue) (byt|e-code "|
|00005490| c7 18 c8 09 21 85 0b 00 | 09 c9 57 85 14 00 ca 10 |....!...|..W.....|
|000054a0| 09 5b 89 11 88 09 cb 3d | 85 20 00 ca 10 c2 89 11 |.[.....=|. ......|
|000054b0| 88 cc 0b 55 85 35 00 08 | 5b 10 c2 89 14 88 72 89 |...U.5..|[.....r.|
|000054c0| 13 88 82 21 00 88 0b cd | 59 85 3f 00 0b ce 58 85 |...!....|Y.?...X.|
|000054d0| 60 00 cf c8 09 21 83 4d | 00 09 82 4e 00 c9 d0 5c |`....!.M|...N...\|
|000054e0| 22 0b cd 5a 5c 5c 11 c2 | 89 14 88 72 89 13 88 82 |"..Z\\..|...r....|
|000054f0| 36 00 88 0c 83 6a 00 0c | 43 82 7e 00 c8 09 21 83 |6....j..|C.~...!.|
|00005500| 77 00 cf 09 08 5c 22 82 | 7e 00 08 ca 55 85 7e 00 |w....\".|~...U.~.|
|00005510| cb 89 15 88 0b 89 16 06 | 29 87 22 20 5b 73 69 67 |........|)." [sig|
|00005520| 6e 20 76 61 6c 75 65 20 | 6e 69 6c 20 63 68 61 72 |n value |nil char|
|00005530| 20 63 2d 75 20 70 72 65 | 66 69 78 2d 61 72 67 20 | c-u pre|fix-arg |
|00005540| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |unread-c|ommand-c|
|00005550| 68 61 72 20 31 20 6e 75 | 6d 62 65 72 70 20 30 20 |har 1 nu|mberp 0 |
|00005560| 2d 31 20 2d 20 34 35 20 | 34 38 20 35 37 20 2a 20 |-1 - 45 |48 57 * |
|00005570| 31 30 5d 20 37 29 29 0a | 0a 28 64 65 66 75 6e 20 |10] 7)).|.(defun |
|00005580| 64 69 67 69 74 2d 61 72 | 67 75 6d 65 6e 74 20 28 |digit-ar|gument (|
|00005590| 61 72 67 29 20 20 28 69 | 6e 74 65 72 61 63 74 69 |arg) (i|nteracti|
|000055a0| 76 65 20 22 50 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "P") |(byte-co|
|000055b0| 64 65 20 22 c1 88 c3 08 | c1 0a 23 87 22 20 5b 6c |de "....|..#." [l|
|000055c0| 61 73 74 2d 63 6f 6d 6d | 61 6e 64 2d 63 68 61 72 |ast-comm|and-char|
|000055d0| 20 6e 69 6c 20 61 72 67 | 20 70 72 65 66 69 78 2d | nil arg| prefix-|
|000055e0| 61 72 67 2d 69 6e 74 65 | 72 6e 61 6c 5d 20 34 29 |arg-inte|rnal] 4)|
|000055f0| 29 0a 0a 28 64 65 66 75 | 6e 20 6e 65 67 61 74 69 |)..(defu|n negati|
|00005600| 76 65 2d 61 72 67 75 6d | 65 6e 74 20 28 61 72 67 |ve-argum|ent (arg|
|00005610| 29 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |) (inte|ractive |
|00005620| 22 50 22 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |"P") (by|te-code |
|00005630| 22 c0 88 c2 c3 c0 09 23 | 87 22 20 5b 6e 69 6c 20 |"......#|." [nil |
|00005640| 61 72 67 20 70 72 65 66 | 69 78 2d 61 72 67 2d 69 |arg pref|ix-arg-i|
|00005650| 6e 74 65 72 6e 61 6c 20 | 34 35 5d 20 34 29 29 0a |nternal |45] 4)).|
|00005660| 0a 28 64 65 66 75 6e 20 | 66 6f 72 77 61 72 64 2d |.(defun |forward-|
|00005670| 74 6f 2d 69 6e 64 65 6e | 74 61 74 69 6f 6e 20 28 |to-inden|tation (|
|00005680| 61 72 67 29 20 20 28 69 | 6e 74 65 72 61 63 74 69 |arg) (i|nteracti|
|00005690| 76 65 20 22 70 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "p") |(byte-co|
|000056a0| 64 65 20 22 c1 88 c2 08 | 21 88 c3 c4 21 87 22 20 |de "....|!...!." |
|000056b0| 5b 61 72 67 20 6e 69 6c | 20 66 6f 72 77 61 72 64 |[arg nil| forward|
|000056c0| 2d 6c 69 6e 65 20 73 6b | 69 70 2d 63 68 61 72 73 |-line sk|ip-chars|
|000056d0| 2d 66 6f 72 77 61 72 64 | 20 22 20 09 22 5d 20 33 |-forward| " ."] 3|
|000056e0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 62 61 63 6b 77 |))..(def|un backw|
|000056f0| 61 72 64 2d 74 6f 2d 69 | 6e 64 65 6e 74 61 74 69 |ard-to-i|ndentati|
|00005700| 6f 6e 20 28 61 72 67 29 | 20 20 28 69 6e 74 65 72 |on (arg)| (inter|
|00005710| 61 63 74 69 76 65 20 22 | 70 22 29 20 28 62 79 74 |active "|p") (byt|
|00005720| 65 2d 63 6f 64 65 20 22 | c1 88 c2 08 5b 21 88 c3 |e-code "|....[!..|
|00005730| c4 21 87 22 20 5b 61 72 | 67 20 6e 69 6c 20 66 6f |.!." [ar|g nil fo|
|00005740| 72 77 61 72 64 2d 6c 69 | 6e 65 20 73 6b 69 70 2d |rward-li|ne skip-|
|00005750| 63 68 61 72 73 2d 66 6f | 72 77 61 72 64 20 22 20 |chars-fo|rward " |
|00005760| 09 22 5d 20 33 29 29 0a | 0a 28 64 65 66 75 6e 20 |."] 3)).|.(defun |
|00005770| 6b 69 6c 6c 2d 6c 69 6e | 65 20 28 26 6f 70 74 69 |kill-lin|e (&opti|
|00005780| 6f 6e 61 6c 20 61 72 67 | 29 20 20 28 69 6e 74 65 |onal arg|) (inte|
|00005790| 72 61 63 74 69 76 65 20 | 22 2a 50 22 29 20 28 62 |ractive |"*P") (b|
|000057a0| 79 74 65 2d 63 6f 64 65 | 20 22 c1 88 c2 60 08 83 |yte-code| "...`..|
|000057b0| 10 00 c3 c4 08 21 21 82 | 27 00 6d 85 18 00 c5 c6 |.....!!.|'.m.....|
|000057c0| c1 5c 22 88 c7 c8 21 83 | 25 00 c3 c9 21 82 27 00 |.\"...!.|%...!.'.|
|000057d0| ca 20 88 60 5c 22 87 22 | 20 5b 61 72 67 20 6e 69 |. .`\"."| [arg ni|
|000057e0| 6c 20 6b 69 6c 6c 2d 72 | 65 67 69 6f 6e 20 66 6f |l kill-r|egion fo|
|000057f0| 72 77 61 72 64 2d 6c 69 | 6e 65 20 70 72 65 66 69 |rward-li|ne prefi|
|00005800| 78 2d 6e 75 6d 65 72 69 | 63 2d 76 61 6c 75 65 20 |x-numeri|c-value |
|00005810| 73 69 67 6e 61 6c 20 65 | 6e 64 2d 6f 66 2d 62 75 |signal e|nd-of-bu|
|00005820| 66 66 65 72 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |ffer loo|king-at |
|00005830| 22 5b 20 09 5d 2a 24 22 | 20 31 20 65 6e 64 2d 6f |"[ .]*$"| 1 end-o|
|00005840| 66 2d 6c 69 6e 65 5d 20 | 39 29 29 0a 0a 28 64 65 |f-line] |9))..(de|
|00005850| 66 76 61 72 20 6b 69 6c | 6c 2d 72 69 6e 67 20 6e |fvar kil|l-ring n|
|00005860| 69 6c 20 29 0a 0a 28 64 | 65 66 63 6f 6e 73 74 20 |il )..(d|efconst |
|00005870| 6b 69 6c 6c 2d 72 69 6e | 67 2d 6d 61 78 20 33 30 |kill-rin|g-max 30|
|00005880| 20 29 0a 0a 28 64 65 66 | 76 61 72 20 6b 69 6c 6c | )..(def|var kill|
|00005890| 2d 72 69 6e 67 2d 79 61 | 6e 6b 2d 70 6f 69 6e 74 |-ring-ya|nk-point|
|000058a0| 65 72 20 6e 69 6c 20 29 | 0a 0a 28 64 65 66 75 6e |er nil )|..(defun|
|000058b0| 20 6b 69 6c 6c 2d 61 70 | 70 65 6e 64 20 28 73 74 | kill-ap|pend (st|
|000058c0| 72 69 6e 67 20 62 65 66 | 6f 72 65 2d 70 29 20 28 |ring bef|ore-p) (|
|000058d0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c3 08 09 83 0d |byte-cod|e ".....|
|000058e0| 00 0a 08 40 50 82 11 00 | 08 40 0a 50 5c 22 87 22 |...@P...|.@.P\"."|
|000058f0| 20 5b 6b 69 6c 6c 2d 72 | 69 6e 67 20 62 65 66 6f | [kill-r|ing befo|
|00005900| 72 65 2d 70 20 73 74 72 | 69 6e 67 20 73 65 74 63 |re-p str|ing setc|
|00005910| 61 72 5d 20 34 29 29 0a | 0a 28 64 65 66 75 6e 20 |ar] 4)).|.(defun |
|00005920| 6b 69 6c 6c 2d 72 65 67 | 69 6f 6e 20 28 62 65 67 |kill-reg|ion (beg|
|00005930| 20 65 6e 64 29 20 20 28 | 69 6e 74 65 72 61 63 74 | end) (|interact|
|00005940| 69 76 65 20 22 2a 72 22 | 29 20 28 62 79 74 65 2d |ive "*r"|) (byte-|
|00005950| 63 6f 64 65 20 22 c2 88 | c3 08 09 5c 22 88 c4 08 |code "..|...\"...|
|00005960| 09 5c 22 87 22 20 5b 62 | 65 67 20 65 6e 64 20 6e |.\"." [b|eg end n|
|00005970| 69 6c 20 63 6f 70 79 2d | 72 65 67 69 6f 6e 2d 61 |il copy-|region-a|
|00005980| 73 2d 6b 69 6c 6c 20 64 | 65 6c 65 74 65 2d 72 65 |s-kill d|elete-re|
|00005990| 67 69 6f 6e 5d 20 34 29 | 29 0a 0a 28 66 73 65 74 |gion] 4)|)..(fset|
|000059a0| 20 28 71 75 6f 74 65 20 | 6b 69 6c 6c 2d 72 69 6e | (quote |kill-rin|
|000059b0| 67 2d 73 61 76 65 29 20 | 28 71 75 6f 74 65 20 63 |g-save) |(quote c|
|000059c0| 6f 70 79 2d 72 65 67 69 | 6f 6e 2d 61 73 2d 6b 69 |opy-regi|on-as-ki|
|000059d0| 6c 6c 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 6f 70 |ll))..(d|efun cop|
|000059e0| 79 2d 72 65 67 69 6f 6e | 2d 61 73 2d 6b 69 6c 6c |y-region|-as-kill|
|000059f0| 20 28 62 65 67 20 65 6e | 64 29 20 20 28 69 6e 74 | (beg en|d) (int|
|00005a00| 65 72 61 63 74 69 76 65 | 20 22 72 22 29 20 28 62 |eractive| "r") (b|
|00005a10| 79 74 65 2d 63 6f 64 65 | 20 22 c5 88 08 c8 3d 83 |yte-code| "....=.|
|00005a20| 14 00 c9 ca 09 0a 5c 22 | 0a 09 57 5c 22 82 2c 00 |......\"|..W\".,.|
|00005a30| ca 09 0a 5c 22 0b 42 89 | 13 88 0b 47 0c 56 85 2c |...\".B.|...G.V.,|
|00005a40| 00 cb cc 0c 53 0b 5c 22 | c5 5c 22 88 c8 89 16 06 |....S.\"|.\".....|
|00005a50| 88 0b 89 16 07 87 22 20 | 5b 6c 61 73 74 2d 63 6f |......" |[last-co|
|00005a60| 6d 6d 61 6e 64 20 62 65 | 67 20 65 6e 64 20 6b 69 |mmand be|g end ki|
|00005a70| 6c 6c 2d 72 69 6e 67 20 | 6b 69 6c 6c 2d 72 69 6e |ll-ring |kill-rin|
|00005a80| 67 2d 6d 61 78 20 6e 69 | 6c 20 74 68 69 73 2d 63 |g-max ni|l this-c|
|00005a90| 6f 6d 6d 61 6e 64 20 6b | 69 6c 6c 2d 72 69 6e 67 |ommand k|ill-ring|
|00005aa0| 2d 79 61 6e 6b 2d 70 6f | 69 6e 74 65 72 20 6b 69 |-yank-po|inter ki|
|00005ab0| 6c 6c 2d 72 65 67 69 6f | 6e 20 6b 69 6c 6c 2d 61 |ll-regio|n kill-a|
|00005ac0| 70 70 65 6e 64 20 62 75 | 66 66 65 72 2d 73 75 62 |ppend bu|ffer-sub|
|00005ad0| 73 74 72 69 6e 67 20 73 | 65 74 63 64 72 20 6e 74 |string s|etcdr nt|
|00005ae0| 68 63 64 72 5d 20 37 29 | 29 0a 0a 28 64 65 66 75 |hcdr] 7)|)..(defu|
|00005af0| 6e 20 61 70 70 65 6e 64 | 2d 6e 65 78 74 2d 6b 69 |n append|-next-ki|
|00005b00| 6c 6c 20 6e 69 6c 20 20 | 28 69 6e 74 65 72 61 63 |ll nil |(interac|
|00005b10| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|00005b20| 20 22 c2 88 74 83 0c 00 | c3 89 10 82 0f 00 c3 89 | "..t...|........|
|00005b30| 11 87 22 20 5b 74 68 69 | 73 2d 63 6f 6d 6d 61 6e |.." [thi|s-comman|
|00005b40| 64 20 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 20 6e |d last-c|ommand n|
|00005b50| 69 6c 20 6b 69 6c 6c 2d | 72 65 67 69 6f 6e 5d 20 |il kill-|region] |
|00005b60| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 72 6f 74 61 |2))..(de|fun rota|
|00005b70| 74 65 2d 79 61 6e 6b 2d | 70 6f 69 6e 74 65 72 20 |te-yank-|pointer |
|00005b80| 28 61 72 67 29 20 20 28 | 69 6e 74 65 72 61 63 74 |(arg) (|interact|
|00005b90| 69 76 65 20 22 70 22 29 | 20 28 62 79 74 65 2d 63 |ive "p")| (byte-c|
|00005ba0| 6f 64 65 20 22 c4 88 09 | 47 18 c5 08 21 83 11 00 |ode "...|G...!...|
|00005bb0| c6 c7 21 82 1f 00 c8 c9 | 0b 08 0a 47 5a 5c 5c 08 |..!.....|...GZ\\.|
|00005bc0| 5c 22 09 5c 22 89 12 29 | 87 22 20 5b 6c 65 6e 67 |\".\"..)|." [leng|
|00005bd0| 74 68 20 6b 69 6c 6c 2d | 72 69 6e 67 20 6b 69 6c |th kill-|ring kil|
|00005be0| 6c 2d 72 69 6e 67 2d 79 | 61 6e 6b 2d 70 6f 69 6e |l-ring-y|ank-poin|
|00005bf0| 74 65 72 20 61 72 67 20 | 6e 69 6c 20 7a 65 72 6f |ter arg |nil zero|
|00005c00| 70 20 65 72 72 6f 72 20 | 22 4b 69 6c 6c 20 72 69 |p error |"Kill ri|
|00005c10| 6e 67 20 69 73 20 65 6d | 70 74 79 22 20 6e 74 68 |ng is em|pty" nth|
|00005c20| 63 64 72 20 25 5d 20 37 | 29 29 0a 0a 28 64 65 66 |cdr %] 7|))..(def|
|00005c30| 75 6e 20 79 61 6e 6b 2d | 70 6f 70 20 28 61 72 67 |un yank-|pop (arg|
|00005c40| 29 20 20 28 69 6e 74 65 | 72 61 63 74 69 76 65 20 |) (inte|ractive |
|00005c50| 22 2a 70 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |"*p") (b|yte-code|
|00005c60| 20 22 c5 88 08 c6 3d 3f | 85 0c 00 c7 c8 21 88 c6 | "....=?|.....!..|
|00005c70| 89 11 88 60 c9 20 57 1a | ca 60 c9 20 5c 22 88 cb |...`. W.|.`. \"..|
|00005c80| 0b 21 88 cc 60 21 88 0c | 40 63 88 0a 85 2e 00 cd |.!..`!..|@c......|
|00005c90| 20 29 87 22 20 5b 6c 61 | 73 74 2d 63 6f 6d 6d 61 | )." [la|st-comma|
|00005ca0| 6e 64 20 74 68 69 73 2d | 63 6f 6d 6d 61 6e 64 20 |nd this-|command |
|00005cb0| 62 65 66 6f 72 65 20 61 | 72 67 20 6b 69 6c 6c 2d |before a|rg kill-|
|00005cc0| 72 69 6e 67 2d 79 61 6e | 6b 2d 70 6f 69 6e 74 65 |ring-yan|k-pointe|
|00005cd0| 72 20 6e 69 6c 20 79 61 | 6e 6b 20 65 72 72 6f 72 |r nil ya|nk error|
|00005ce0| 20 22 50 72 65 76 69 6f | 75 73 20 63 6f 6d 6d 61 | "Previo|us comma|
|00005cf0| 6e 64 20 77 61 73 20 6e | 6f 74 20 61 20 79 61 6e |nd was n|ot a yan|
|00005d00| 6b 22 20 6d 61 72 6b 20 | 64 65 6c 65 74 65 2d 72 |k" mark |delete-r|
|00005d10| 65 67 69 6f 6e 20 72 6f | 74 61 74 65 2d 79 61 6e |egion ro|tate-yan|
|00005d20| 6b 2d 70 6f 69 6e 74 65 | 72 20 73 65 74 2d 6d 61 |k-pointe|r set-ma|
|00005d30| 72 6b 20 65 78 63 68 61 | 6e 67 65 2d 70 6f 69 6e |rk excha|nge-poin|
|00005d40| 74 2d 61 6e 64 2d 6d 61 | 72 6b 5d 20 38 29 29 0a |t-and-ma|rk] 8)).|
|00005d50| 0a 28 64 65 66 75 6e 20 | 79 61 6e 6b 20 28 26 6f |.(defun |yank (&o|
|00005d60| 70 74 69 6f 6e 61 6c 20 | 61 72 67 29 20 20 28 69 |ptional |arg) (i|
|00005d70| 6e 74 65 72 61 63 74 69 | 76 65 20 22 2a 50 22 29 |nteracti|ve "*P")|
|00005d80| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c2 88 c3 | (byte-c|ode "...|
|00005d90| 08 3c 83 0c 00 c4 82 18 | 00 08 c5 3d 83 16 00 c6 |.<......|...=....|
|00005da0| 82 18 00 08 53 21 88 c7 | 60 21 88 09 40 63 88 08 |....S!..|`!..@c..|
|00005db0| 3a 85 29 00 c8 20 87 22 | 20 5b 61 72 67 20 6b 69 |:.).. ."| [arg ki|
|00005dc0| 6c 6c 2d 72 69 6e 67 2d | 79 61 6e 6b 2d 70 6f 69 |ll-ring-|yank-poi|
|00005dd0| 6e 74 65 72 20 6e 69 6c | 20 72 6f 74 61 74 65 2d |nter nil| rotate-|
|00005de0| 79 61 6e 6b 2d 70 6f 69 | 6e 74 65 72 20 30 20 2d |yank-poi|nter 0 -|
|00005df0| 20 2d 31 20 70 75 73 68 | 2d 6d 61 72 6b 20 65 78 | -1 push|-mark ex|
|00005e00| 63 68 61 6e 67 65 2d 70 | 6f 69 6e 74 2d 61 6e 64 |change-p|oint-and|
|00005e10| 2d 6d 61 72 6b 5d 20 34 | 29 29 0a 0a 28 64 65 66 |-mark] 4|))..(def|
|00005e20| 75 6e 20 69 6e 73 65 72 | 74 2d 62 75 66 66 65 72 |un inser|t-buffer|
|00005e30| 20 28 62 75 66 66 65 72 | 29 20 20 28 69 6e 74 65 | (buffer|) (inte|
|00005e40| 72 61 63 74 69 76 65 20 | 22 2a 62 49 6e 73 65 72 |ractive |"*bInser|
|00005e50| 74 20 62 75 66 66 65 72 | 3a 20 22 29 20 28 62 79 |t buffer|: ") (by|
|00005e60| 74 65 2d 63 6f 64 65 20 | 22 c4 88 c5 08 21 86 0d |te-code |"....!..|
|00005e70| 00 c6 08 21 89 10 88 c4 | c4 c4 1b 1a 19 8a 8a 08 |...!....|........|
|00005e80| 71 88 65 11 64 89 12 29 | 88 c7 08 09 0a 23 88 60 |q.e.d..)|.....#.`|
|00005e90| 89 13 29 88 c8 0b 21 2b | 87 22 20 5b 62 75 66 66 |..)...!+|." [buff|
|00005ea0| 65 72 20 73 74 61 72 74 | 20 65 6e 64 20 6e 65 77 |er start| end new|
|00005eb0| 6d 61 72 6b 20 6e 69 6c | 20 62 75 66 66 65 72 70 |mark nil| bufferp|
|00005ec0| 20 67 65 74 2d 62 75 66 | 66 65 72 20 69 6e 73 65 | get-buf|fer inse|
|00005ed0| 72 74 2d 62 75 66 66 65 | 72 2d 73 75 62 73 74 72 |rt-buffe|r-substr|
|00005ee0| 69 6e 67 20 70 75 73 68 | 2d 6d 61 72 6b 5d 20 36 |ing push|-mark] 6|
|00005ef0| 29 29 0a 0a 28 64 65 66 | 75 6e 20 61 70 70 65 6e |))..(def|un appen|
|00005f00| 64 2d 74 6f 2d 62 75 66 | 66 65 72 20 28 62 75 66 |d-to-buf|fer (buf|
|00005f10| 66 65 72 20 73 74 61 72 | 74 20 65 6e 64 29 20 20 |fer star|t end) |
|00005f20| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 42 41 |(interac|tive "BA|
|00005f30| 70 70 65 6e 64 20 74 6f | 20 62 75 66 66 65 72 3a |ppend to| buffer:|
|00005f40| 20 0a 72 22 29 20 28 62 | 79 74 65 2d 63 6f 64 65 | .r") (b|yte-code|
|00005f50| 20 22 c4 88 70 18 8a c5 | 09 21 71 88 c6 08 0a 0b | "..p...|.!q.....|
|00005f60| 23 29 29 87 22 20 5b 6f | 6c 64 62 75 66 20 62 75 |#))." [o|ldbuf bu|
|00005f70| 66 66 65 72 20 73 74 61 | 72 74 20 65 6e 64 20 6e |ffer sta|rt end n|
|00005f80| 69 6c 20 67 65 74 2d 62 | 75 66 66 65 72 2d 63 72 |il get-b|uffer-cr|
|00005f90| 65 61 74 65 20 69 6e 73 | 65 72 74 2d 62 75 66 66 |eate ins|ert-buff|
|00005fa0| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 5d 20 35 29 |er-subst|ring] 5)|
|00005fb0| 29 0a 0a 28 64 65 66 75 | 6e 20 70 72 65 70 65 6e |)..(defu|n prepen|
|00005fc0| 64 2d 74 6f 2d 62 75 66 | 66 65 72 20 28 62 75 66 |d-to-buf|fer (buf|
|00005fd0| 66 65 72 20 73 74 61 72 | 74 20 65 6e 64 29 20 20 |fer star|t end) |
|00005fe0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 42 50 |(interac|tive "BP|
|00005ff0| 72 65 70 65 6e 64 20 74 | 6f 20 62 75 66 66 65 72 |repend t|o buffer|
|00006000| 3a 20 0a 72 22 29 20 28 | 62 79 74 65 2d 63 6f 64 |: .r") (|byte-cod|
|00006010| 65 20 22 c4 88 70 18 8a | c5 09 21 71 88 8a c6 08 |e "..p..|..!q....|
|00006020| 0a 0b 23 29 29 29 87 22 | 20 5b 6f 6c 64 62 75 66 |..#)))."| [oldbuf|
|00006030| 20 62 75 66 66 65 72 20 | 73 74 61 72 74 20 65 6e | buffer |start en|
|00006040| 64 20 6e 69 6c 20 67 65 | 74 2d 62 75 66 66 65 72 |d nil ge|t-buffer|
|00006050| 2d 63 72 65 61 74 65 20 | 69 6e 73 65 72 74 2d 62 |-create |insert-b|
|00006060| 75 66 66 65 72 2d 73 75 | 62 73 74 72 69 6e 67 5d |uffer-su|bstring]|
|00006070| 20 35 29 29 0a 0a 28 64 | 65 66 75 6e 20 63 6f 70 | 5))..(d|efun cop|
|00006080| 79 2d 74 6f 2d 62 75 66 | 66 65 72 20 28 62 75 66 |y-to-buf|fer (buf|
|00006090| 66 65 72 20 73 74 61 72 | 74 20 65 6e 64 29 20 20 |fer star|t end) |
|000060a0| 28 69 6e 74 65 72 61 63 | 74 69 76 65 20 22 42 43 |(interac|tive "BC|
|000060b0| 6f 70 79 20 74 6f 20 62 | 75 66 66 65 72 3a 20 0a |opy to b|uffer: .|
|000060c0| 72 22 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |r") (byt|e-code "|
|000060d0| c4 88 70 18 8a c5 09 21 | 71 88 c6 20 88 8a c7 08 |..p....!|q.. ....|
|000060e0| 0a 0b 23 29 29 29 87 22 | 20 5b 6f 6c 64 62 75 66 |..#)))."| [oldbuf|
|000060f0| 20 62 75 66 66 65 72 20 | 73 74 61 72 74 20 65 6e | buffer |start en|
|00006100| 64 20 6e 69 6c 20 67 65 | 74 2d 62 75 66 66 65 72 |d nil ge|t-buffer|
|00006110| 2d 63 72 65 61 74 65 20 | 65 72 61 73 65 2d 62 75 |-create |erase-bu|
|00006120| 66 66 65 72 20 69 6e 73 | 65 72 74 2d 62 75 66 66 |ffer ins|ert-buff|
|00006130| 65 72 2d 73 75 62 73 74 | 72 69 6e 67 5d 20 36 29 |er-subst|ring] 6)|
|00006140| 29 0a 0a 28 64 65 66 75 | 6e 20 6d 61 72 6b 20 6e |)..(defu|n mark n|
|00006150| 69 6c 20 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |il (byt|e-code "|
|00006160| c0 c1 20 21 87 22 20 5b | 6d 61 72 6b 65 72 2d 70 |.. !." [|marker-p|
|00006170| 6f 73 69 74 69 6f 6e 20 | 6d 61 72 6b 2d 6d 61 72 |osition |mark-mar|
|00006180| 6b 65 72 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |ker] 3))|..(defun|
|00006190| 20 73 65 74 2d 6d 61 72 | 6b 20 28 70 6f 73 29 20 | set-mar|k (pos) |
|000061a0| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 c1 c2 20 | (byte-c|ode ".. |
|000061b0| 08 70 23 87 22 20 5b 70 | 6f 73 20 73 65 74 2d 6d |.p#." [p|os set-m|
|000061c0| 61 72 6b 65 72 20 6d 61 | 72 6b 2d 6d 61 72 6b 65 |arker ma|rk-marke|
|000061d0| 72 5d 20 35 29 29 0a 0a | 28 64 65 66 76 61 72 20 |r] 5))..|(defvar |
|000061e0| 6d 61 72 6b 2d 72 69 6e | 67 20 6e 69 6c 20 29 0a |mark-rin|g nil ).|
|000061f0| 0a 28 6d 61 6b 65 2d 76 | 61 72 69 61 62 6c 65 2d |.(make-v|ariable-|
|00006200| 62 75 66 66 65 72 2d 6c | 6f 63 61 6c 20 28 71 75 |buffer-l|ocal (qu|
|00006210| 6f 74 65 20 6d 61 72 6b | 2d 72 69 6e 67 29 29 0a |ote mark|-ring)).|
|00006220| 0a 28 64 65 66 63 6f 6e | 73 74 20 6d 61 72 6b 2d |.(defcon|st mark-|
|00006230| 72 69 6e 67 2d 6d 61 78 | 20 31 36 20 29 0a 0a 28 |ring-max| 16 )..(|
|00006240| 64 65 66 75 6e 20 73 65 | 74 2d 6d 61 72 6b 2d 63 |defun se|t-mark-c|
|00006250| 6f 6d 6d 61 6e 64 20 28 | 61 72 67 29 20 20 28 69 |ommand (|arg) (i|
|00006260| 6e 74 65 72 61 63 74 69 | 76 65 20 22 50 22 29 20 |nteracti|ve "P") |
|00006270| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c1 88 08 3f |(byte-co|de "...?|
|00006280| 83 0c 00 c2 20 82 1e 00 | c3 20 3f 83 18 00 c4 c5 |.... ...|. ?.....|
|00006290| 21 82 1e 00 c3 20 62 88 | c6 20 87 22 20 5b 61 72 |!.... b.|. ." [ar|
|000062a0| 67 20 6e 69 6c 20 70 75 | 73 68 2d 6d 61 72 6b 20 |g nil pu|sh-mark |
|000062b0| 6d 61 72 6b 20 65 72 72 | 6f 72 20 22 4e 6f 20 6d |mark err|or "No m|
|000062c0| 61 72 6b 20 73 65 74 20 | 69 6e 20 74 68 69 73 20 |ark set |in this |
|000062d0| 62 75 66 66 65 72 22 20 | 70 6f 70 2d 6d 61 72 6b |buffer" |pop-mark|
|000062e0| 5d 20 36 29 29 0a 0a 28 | 64 65 66 75 6e 20 70 75 |] 6))..(|defun pu|
|000062f0| 73 68 2d 6d 61 72 6b 20 | 28 26 6f 70 74 69 6f 6e |sh-mark |(&option|
|00006300| 61 6c 20 6c 6f 63 61 74 | 69 6f 6e 20 6e 6f 6d 73 |al locat|ion noms|
|00006310| 67 29 20 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |g) (byt|e-code "|
|00006320| c6 20 3f 83 0a 00 c0 82 | 2b 00 c7 c8 20 21 09 42 |. ?.....|+... !.B|
|00006330| 89 11 88 09 47 0a 56 85 | 2b 00 c9 ca 0a 09 5c 22 |....G.V.|+.....\"|
|00006340| 40 c0 5c 22 88 cb ca 0a | 53 09 5c 22 c0 5c 22 88 |@.\"....|S.\".\".|
|00006350| cc 0b 86 32 00 60 21 88 | 0c 86 46 00 0d 86 46 00 |...2.`!.|..F...F.|
|00006360| cd 20 ce 56 86 46 00 cf | d0 21 87 22 20 5b 6e 69 |. .V.F..|.!." [ni|
|00006370| 6c 20 6d 61 72 6b 2d 72 | 69 6e 67 20 6d 61 72 6b |l mark-r|ing mark|
|00006380| 2d 72 69 6e 67 2d 6d 61 | 78 20 6c 6f 63 61 74 69 |-ring-ma|x locati|
|00006390| 6f 6e 20 6e 6f 6d 73 67 | 20 65 78 65 63 75 74 69 |on nomsg| executi|
|000063a0| 6e 67 2d 6d 61 63 72 6f | 20 6d 61 72 6b 20 63 6f |ng-macro| mark co|
|000063b0| 70 79 2d 6d 61 72 6b 65 | 72 20 6d 61 72 6b 2d 6d |py-marke|r mark-m|
|000063c0| 61 72 6b 65 72 20 6d 6f | 76 65 2d 6d 61 72 6b 65 |arker mo|ve-marke|
|000063d0| 72 20 6e 74 68 63 64 72 | 20 73 65 74 63 64 72 20 |r nthcdr| setcdr |
|000063e0| 73 65 74 2d 6d 61 72 6b | 20 6d 69 6e 69 62 75 66 |set-mark| minibuf|
|000063f0| 66 65 72 2d 64 65 70 74 | 68 20 30 20 6d 65 73 73 |fer-dept|h 0 mess|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
